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ABSTRACT 

Finance has been the prime motivation in many recent 
espionage cases. This thesis expanded the prototype 
Manpower Financial Tracking Expert System (MFTES) that 
analyzes individual financial profiles in order ‘to detect 
the potential af an employee to engage in espionage 
activities. The architecture of MFTES has modules that 
Capture Control Strategy, Taxanomy of Concepts, Expert 
Rules, and Numerical Processing. During evaluatian,s it 
successfully followed the documentary trail for 75 
employee credit reports and made inferences about their 


potential risks. 


THESIS DISCLAIMER 
The reader is Cautioned that computer programs 
developed in this research may not have been exercised for 
all cases of interest. While every effort has been made, 
within the time available; to ensure that the programs are 
free of computational and logic errors; they cannot be 
considered validated. Any application of these programs 


without additional verification is at the risk of the user. 
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I. INTRODUCTION 


The use of espionage by hostile forces to gain access 
to classified information is a clear threat to our 
government. The effect of espionage is not always readily 
apparent but there can be significant and irreparable 
damage to our national security. The motives for 
espionage are many. Whether it is committed for money; 
personal gain or for political reasons, the prevention of 
espionage has become a high priority of our security 
forces. In most casess including those of convicted spies 
FBI agent Richard Miller; the National Security Agency’s 
Ronald WwW. Peltons and the Navy’s John Walkers financial 
gain has been the prime motivation. CRef. 1] 

Enormous resources are required to detect and prevent 
Jeno name The money spent and manpower employed to 
identify, locate and then apprehend a spy can only be 
justified when compared to the loss of information vital to 
Our national security. Miller, Pelton and Walker, and 
other Similar cases, created clearly identifiable 
documentary trails. Rosa concluded that if there had been 
4 computer system automatically tracking individuals’ 


income and spending, it could have alerted the authorities 


in time to limit, if nat prevent, the resulting damages 


CREF eeceles 

Currently the Defense Investigative Service (DIS) 
obtains paper credit reports on subjects undergoing 
background investigations for pasitioans requiring top 
secret clearance. These documents are reviewed far 
deragatary informatian revealing financial 
irresponsibility, which may be cause for denial ar 
revocation af clearance eligibility by the cagnizant 
adjudicating authority. Under current procedures all 
credit preparts, bath those with varying degrees of 
negative information and those that are ’clean’,s are 


produced in paper farmat and individually reviewed by DIS 
personnel. It will Become increasingly important for DoD 
to automate this process as much as possible since 
stabilized or even decreasing human resources are now 
anticipated. (CRef. 3] 

At the same time the role af finances in sa many recent 
espionage cases has ted tao calls far increased use af 
credit checks, even to the point of including them as part 
ot investigations for secret level clearances. A 1985 
report to the Secretary of Defense by the cammission toa 
review DoD security policies and practices recommended 
expansian of the investigative scope for a SECRET clearance 
to include a credit check of the subject (Ref. 4, p. 9]. 
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Clearly desirable 1S a streamlined process in which the 
generation of paper 1s kept to a minimum and human 
resources are devoted only to those cases with derogatory 
indications CRef. 3]. 

The purpose of this thesis has been to more fully 
develop the prototype MANPOWER FINANCIAL TRACKING EXPERI 
SA Sieia! OMS esta e aes analyzes individual financial 
profiles in order to detect the potential of an employee 
involving himself in espionage activities. The prototype 
was developed by Sivasankaran and Bui CRef. 1] of the Naval 
Postgraduate School (NPS), Monterey, California. The 
prototype was sponsored by the Defense Personnel Security 
and Research Center (PERSEREC) as part of its effort to 
improve the DoD Personnel security program through 
increasing the use of automated data and techniques. 

The thesis is organized as follows: Chapter II provides 
background on the evolution of expert systems, on the MFTES 
prototype and its expanded development. Vine Mewes 
implementation is discussed in Chapter [I11, followed by a 
discussion of the evaluation tests, the expanded system’s 
hardware and software requirements and the conclusions and 
recommendations in Chapter IV. Appendix Ais a listing of 
the MFTES source code and Appendix 8B is a listing of the 
10¢ account conditions (remarks) used in the TRW credit 


rating system. 


II. BACKGROUND 


A, IntSyORyY Ge EXPERT Siyeiiens 

"Aan expert system is a method for handling real-world, 
complex problems requiring an expert’s interpretation and 
which solves these problems using a computer model of 
expert human reasoning. It reaches the same conclusions 
that a human expert would reach if faced with a similar 
problem." (CRef. 3S] The heuristics and rules that make up a 
human expert’s knowledge are transferred into the rule-base 
and interence engine of the expert system. The facts 
within the rule base can be represented in many ways but 
are usually in the form of an IF...THEN relationship. The 
inference engine contains the strategies by which the 
expert system orders the rules; facts and goals to reach a 
conclusion. 

Expert systems have been in use for over 15 years and 
have roots to the pre-World War II period with the 
development of Formal lagic and Cognitive psychology. 
Since that beginnings expert systems have been used in 
many different types of commercial applications. Two 
early, successful systems developed at Stanford University 
were DENDRAL and MYCIN. DENDRAL, conceived in the 1960’s, 


1S a chemistry expert system designed to examine a 


spectroscopic analysis of an unknown molecule and predict 
the molecular structures that could account for that 
Particular analysis. MYCIN; developed in the mid-1970’s 
was designed to aid physicians in the diagnosis’ and 
treatment of meningitis and bacteremia infections. (fRef. 
6, p. 153 Commercial applications in the 1980’s cover many 
different fields including decision makings software 
maintenance management, software design and development 
alds;s ocean surveillance, knowledge-based tutorss 
information management and weather forecasting. 
Applications in the military are just as widespread. Same 
of the more recent efforts include RICA: an expert system 
PEF radar image classification, ACES: an airborne 
communications expert system, and TARSIA: a system that 
helps track underwater contacts. (CRefs. 7 and 8] 

Practical applications for expert systems abound. 
Whenever Numan experts are in great demand and short 
supply, a computer based consultant can help amplify and 
disseminate the needed expertise. An expert system can 
capture the practical experiential knowledge that 1s hard 
to pin down. CRef. 9] 

Credit institutions have always used heuristic 
Procedures in their analysis of individual financial 
protiles in order to assign good or bad risk ratings. 
Although such analysis is mot considered exact; enough 
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advances in the field have been made to make it practical 
to articulate the heuristics in the examination and 
interpretation of financial data. Many of these heuristics 
appear structurable enough to be captured by the current 
expert system technology. [Ref. 1] 

Dne industrys financial services, is emerging as the 
next significant user of expert systems. One financial 
services leader in expert systems implementation is New 
York-based American Express Co. 

The company began its involvement with its current Al 
expert system approximately 2 1/2 years ago. It uses 

a customized expert system called the Authorizer’s 
Assistant (AA); which was designed to help the authorizer 
filter through credit data. American Express has noted 
three primary benefits derived from the AA system. First, 
Productivity and time savings. The company expects 20% 
time reduction in credit review and has observed a 946.5% 
accuracy rate to date. Second, losses associated with bad 
credit risks have been reduced by the improved screening 
process. Third, improved customer service benefits are 
expected because the higher percentage of quicker approvals 
will most likely increase customer satisfaction. CRef. 10] 

Another expert system user, Equitable Financial Cos., 
has produced a demonstration model that evaluates the 
underwriting risk of someone who might have a history of 


& 


alcohol abuse. Using information obtained from employers, 
doctors and so on; the system helps identify high-risk 
individuals by reading between the lines. The R&D model is 
generic enough that, with different rules, it can be 


applied to other underwriting problems. [Ref. 10] 


i, Sccirs 
One ot the responsibilities of PERSEREC is to 

investigate the feasibility of using existing financial 
data bases to monitor the financial health and behavior of 
individuals holding security clearances. 
Rete ss 2 3S) Information containing credit histories 
has already been implemented and distributed nation wide 
through large database systems such as the ones managed by 
{RW LRet. idle "While ane of about half a dozen credit 
report vendors currently used by DIS; TRW was selected for 
this study because of its national coverage and existing 
ESA CMineraeecooas” EiRSero Gla 

i TRW uses 102 credit remarks which can be attributed to 
an individual’s credit standing. All were used in the 
MFleS expansion and are included in Appendix B. Examples 


of some of the major remarks that are reported by credit 


bureaus are listed in Table I. 


TABLE I. 


Report 


Abbreviation 


INQUIRY 


BK LIQ REO 


Els 7 te ube 


BK 7 DISC 


CO TAX LN 


PD COLL AC 


PD WAS 180 


FORECLOSURE 


REPO 


CHARGE OFF 


JUDGMENT 


COLL ACCT 


DELIN@ 180 


DELIN@ 120 


DELIN@ 60 


30 DAY DEL 


TRW CREDIT REMARKS USED IN MFTES 


Explanation 
A copy of the credit profile has been 


sent to this credit grantor at their 
request. 


Debt included in or discharged through 
Bankruptcy Chapter 7 or il. 


Voluntary or involuntary Petition in 
Bankruptcy; Chapter 7-(Liquidation) 
filed. 


Voluntary or involuntary Petition in 


Bankruptcy3 Chapter 7-(Liquidation) 
discharged. 

County Tax Lien. 

Paid account/was a collection account 


insurance claim or education claim. 
Paid account/was delinguent 180 days. 


Credit grantor sold collateral to settle 
defaulted mortgage. 


Merchandise was taken back by credit 
Grantor; there may be a balance due. 


Unpaid balance reported as a loss by 
credit grantor. 


Judqment. 

Account seriously past due/account 
assigned to attorney collection agency or 
credit Grantor’s internal collection 
department. 

Account delinquent 180 days. 

Account delinquent 120 days. 

Account delinquent 460 days. 


Account past due 30 days. 
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PRULUG was chosen as the programming language because 
it is a language currently used in a wide spectrum of 
expert system applications. ([Ref. 12] Additionally, PROLOG 
is integrated within the Arity/Expert Development Package; 
a commercially produced collection of development tools 
which provide the basis for constructing an expert system 
CRef. 12] The Arity/Expert Development Package was chosen 
as a shell for MFTES because of its ability to handle 
medium to large size expert systems; its control mechanism 
for controlling the way in which information is ordered or 
accessed, and its facility for presenting explanations to 
the reasons behind decisions. “Arity is one of the leading 
companies in the Prolog world with a strong reputation for 
reliability and sSupport...and the package has a proven 
record of commercial success" CRef. 131]. 

Initial consideration was given to developing the 
expanded MFTES on the NPS mainframe computer because an 
interface to TRW Credit System reports, also generated ona 
mainframe, could then be more easily achieved. However 
this proved infeasible because the Arity/Expert 


Development Package is not configured to function ina 


mainframe environment. A local alternative was IBM’s own 
expert system development application, known as Expert 
System Environment (ESE), which was produced specifically 
for the mainframe environment. The ESE package was 
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temporarily on loan to the Naval Postgraduate School for a 
Six month trial period. ESE was considered as a candidate 
for the MFTES expansion but its potential loss after six 
months and the lack of local technical support suggested 
the more prudent -decision was to continue using the 
Arity/Expert Development Package. This also meant the 
development effort could continue from the point where the 
MFTES prototype left off rather than having to duplicate 
code already produced. 

Another reason for the choice of a microcomputer 
configuration was the eventual environment in which MFTES 
would be used. MFTES was intended for use By government 
security officers or employees responsible for reviewing 
personnel credit backgrounds, and because they could be 
expected to operate in a variety of different locations 
(buildings, ships; etc.);, the hardware configuration was 
expected to portable, readily available and easy to use. 
The personal computer (PC) appeared perfectly suited for 
those conditions. 

Jhe only funding used was for record typing services 
which converted 75 actual TRW records to a format usable by 
MFTES; and for financial consultant services that helped 


define the heuristics applied by MFTES. 
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ITI. IMPLEMENTATION 


A. KNOWLEDGE REPRESENTATION OF THE FINANCIAL PROFILE 

MFTES represents financial analysis expertise through 
concepts captured by frames. Concepts are defined by their 
qualities and the possible values or properties of those 
qualities. For instance, the concept Superpayer may have 
properties such as monthly payments, that range up to 
$20,000, and the number of active creditors; which goes up 
ete) COO E Figure 3.1 shows how the knowledge and 
relationships of different concepts are represented in the 
system. 

Concept relationships are represented using the notion 
ot a role. For example, the concept PERSEREC is related to 
the concepts CUSTOMER_PROFILE, SUPERPAYER and BANKRUPT 
through the roles CUSTOMER_PROFILE_INFO, SUPERPAYER_INFO 
and BANKRUPT_INFO. The concept PERSEREC holds information 
on-the profile of the customer, the possibility of his 
being a Superpayer and his potential for bankruptcy. 
Concepts may be connected through a series of intermediary 
concepts. 

Since the connections are captured through the use of 
roles, a “’role-chain’ then strings the various concepts in 


a hierarchical fashion. The lowest level concept at 


ii al 


the end of the chain is represented in terms of its 
properties or values. 

It is also possible for a lowest level concept to have 
more than one specific value. For instance, the concept 
CONCLUSION can be represented with one of the following 
values: TOQ MANY ACCTS, SUPERPAYER, NORMAL, SATISFACTORY, 
POOR, VERY POOR, SERIOUS, CRITICAL, VERY CRITICAL; and 


POTENTIAL BANKRUPT. CRef. 1, pp. 14-18] 


Ne 


PERSONAL 

























SSN 
DATE OF BIRTH 
SEX 
MARITAL STATUS 
Za 
MONTHLY INCOME 


USTOMER_PROF ILE 





PERSONAL _INFO 


PERSONAL 


TRW_INFO 






HSS Siac 


TRW 






CUSTOMER_PROFILE_INFO CURRENT_ACC 
DELING_ACC 


COLLECT Ace 


UPERPAYER 
CUSTOMER _PROFILE 









INCOME_INFO 


INCOME 


EXPENSE _INFO > 


EXPENSE 


ACTIVE CREDITORS 


a fof 
FILE 

DISCHARGE 
DESMESS 


SUPERPAYER_INFO 


SUPERPAYER 


BANKRUPT_INFO 


BANKRUPT 


CONCLUSION_INFO 










CONCLUSION 





ONCLUSION 


TOO_MANY_ACCTS 
SUPERPAYER 


POTENT IAL_BANKRUPT 





Figure 3.1 MFTES concept relationships 
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B. ARCHITECTURE OF MFTES AND EXAMPLE CASES 
The functional architecture of MFTES is illustrated 


below in Figure 3.2. The expert system has five modules. 








CONTROL STRATEGY 


CONCEPTS REPRESENTATION 







TRW 
DATABASE 







COMPUTATION 








EXPLANATION 


Figure 3.2 Architecture of MFTES 


The first module consists of the Control Strategy to be 
employed in manipulating the rules during a problem solving 
situation. The Control Strategy also determines when to 
access the static knowledge in the Concepts Representation 
module and when to access the dynamic knowledge contained 
in the Computation module. The system takes one individual 
credit report at a time as its input from the TRW database 


and provides its conclusion to the user. An Explanation 
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module is also available to provide details of how a 
conclusion was reached. 

A sample interaction with the system is shown in 
Figure 3.3 (CRef. Ho [alee 14-18]. It shows a NORMAL 
conclusion was reached because the weight of the current 
Case was found to be EXTREMELY LOW. The determination of 
EXTREMELY LOW was made because the case’s OVERALL 
CALCULATED WEIGHT was found to be 10 which was less than 
the CUT OFF VALUE of 40. The OVERALL CALCULATED WEIGHT was 
determined to be 10 because the PRIVATE RECORD of the case 
contained that value. A closer examination of the PRIVATE 
RECORD showed that there was some MISCELLANEOUS ITEM which 
was assigning the 10 points. Deeper interaction with the 
system would determine precisely what credit remark 
contained in this record was causing the value of 10 to 


appear. 
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The person is : 

1) normal / 1.0 
C How was the conclusion of the current case -2 
judqed to be normal (1.000) 7? Jj 


Since Cid the above weight of the current case on 
a range-e is extremely low (1.0) 
then the conclusion of the current case 
—2 1s normal (1.0) 


previous 
explain 
continue 
[ How was above weight of the above case ona 
range-e judged to be extremely low (1.000) 7? ] 
Gince [il the overall ealculated weiant of the 
current case -2 is 10 (1.0) and 
C2] the extremely low cut off value of the 
range O-200 that we use-i is 40 (1.0) 
and 10 =< 40 
then the above weight of the current 
case on a range-2 is extremely low (1.0) 
{C How was overall calculated weight of the current 
case -e2 judged to be 10 (1.000) 7? J] 


Saincenecrtel the public record val of the current 
case -2 is O (1.0) and 
IE 2 | the private record value of the current 
case -2 is 10 (1.0) 
and 10= 0+ 10 
then the overall calculated weight of the 
current case -e is 10 (1.0) 
L How was private record value of the current case 
-2 judged to be 10 (1.000) ? j 
Since Ci] the calculated weights for all current 
and paid accounts of the current case 
—-2 is O (1.0) and 
2] the calculated weights for all 
. delinquent accounts of the current case 
-2 is O (1.0) and 
Li the calculated weights for ail 
miscellaneous private items of the 
Current case -2 is 10 (1.0) and 
JO. = SOR Om ae ® 
then the private record value of the 
current case -2 is 10 (1.0) 


Figure 3.3 Sample interaction with MFTES 
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C. RULE FORMULATION AND STRUCTURE 

The Problem-solving ~ heuristics involved in the 
financial analysis are captured in the form of rules. 
Rules help the expert system manipulate the concepts, their 
Properties and values so a conclusion about the individual 
credit report can be developed. Rules were represented 
uSing consequents and antecedents. A consequent consists 
of a single goal; whereas the antecedent can be made up of 
one or more goals. A goal indicates a property of a 
concept has Some particular value. CRef. 1; pp. 14-18] 

In MFTES a simple weighting scheme was interleaved with 
many of the rules to add up a preset number of points for 
each negative remark occurring in the credit record. fhe 
idea is similar to the scheme employed iin) WimEWE IF UE 
violations. An overall conclusion is based on total points 
scored on the credit record. CRef. 1, pp. 14-18] 

Rules were written following the same structure shown 
in IRW’s Glossary of National Status Comments CRef. 14]. 
This explanatory aid for deciphering the coded report 
abbreviations, divides the 102 credit remarks used By TRW 
for its reports into two broad categories, Items of Private 
Record and Items of Public Record. Figure 3.4 shows the 
MFTeES rule base structure further subdividing the Private 
and Public Records into smaller sets containing similar 
remarks. 
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The Public Record is) made up of a two setss one 


addressing bankruptcy and liens and another dealing with 


related miscellaneous items. Remarks grouped within the 
bankruptcy set included bankruptcy adjustment plans; 
bankruptcy chapters 7, Hi iF 13; mechanic’s liens and 
federal or city tax liens. Remarks within the 


miscellaneous items set included judgments and suits. 


The Private Record is made up of three sets; one 


addressing current and paid accounts, one dealing with 
delinquent accounts and the other also dealing with 
miscellaneous items. Remarks within the current and paid 


accounts set included all paid accounts past due and 
current accounts that were collections. Remarks within the 
delinquent accounts set included delinquencies 60 days oar 
greater and foreclosures. Remarks within the miscellaneous 
items set included settled accounts and charge offs now 


being paid. 






OVERALL _WEIGHT_VAL 












PRIVATE 
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DELINQ BNKRPT 
ACCNTS ACCNTS 


Figure 3.4 Rule base structure for credit remarks 
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D. MFTES OPERATION 

MFTES examines a TRW report by first determining if an 
individual’s credit profile is one that indicates he is 
already bankrupt or in the process of bankruptcy. Next it 
determines if potential bankruptcy is indicated or if a 
superpayer condition exists. 

Anyone who is bankrupt or going through the bankruptcy 
Process is considered a high risk. The loss of financial 
well being combined with access to classified information 
makes any such individual vulnerable to compromise. The 
sale of classified information for money, in order to 
improve financial position, is a circumstance that might be 
avoided if the bankruptcy condition is identified early 
enough. 

Ine same reasoning applies to potential bankruptcy. 
Anyone finding himself going sa deeply into debt that 
bankruptcy could become a reality 18s also considered a 
risk for potential espionage. 

- A SUperpayer 1S Someone sitting at the opposite extreme 
trom bankruptcy. His financial position appears so good 
that bankruptcy is never a question. A superpayer’s 
characteristics; however, should raise anyone’s eyebrous. 
His credit infarmation might appear flawless showing timely 
Payments, Paid off debts and a good rating. But a 
comparison of a superpayer’s manthly expenses against his 
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expected monthly income would reveal that his expenses 
exceed his income. The rationale is that if someone 15 
spending more than it appears he could afford, there is an 
external source of income which the individual is enjoying 
that needs close examination. CRef. bo {elo {a} The 
superpayer is also considered a high risk. 

If any of the bankruptcy, potential bankruptcy or 
Superpayer conditions are not initially identified the 


MFTES then evaluates the individual’s credit record for 


his overall financial position. A weighting scheme 
assigns point values (weights) to each of the different 
credit remarks found in the credit report. These weights 


are used to indicate the individual’s financial position on 
a predefined scale that ranges from Normal to Very 


XP ieee . 


&E. CHARACTERISTICS OF FINANCIAL PROFILE ANALYSIS 

The objective of financial profile analysis was to 
ascertain what financial remarkS were present in a credit 
report and then; based on the number and combination of 
those remarks, make inferences about the individual’s 
overall financial position. [Ref. 15, p. 4] The financial 
profile analysis was oriented towards discovering two kinds 
ot signals, whether an individual was stretching beyond his 
tinancial means and was a candidate for bankruptcy, or 
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whether the individual was spending a disproportional 
amount of his income. [Ref. 1, p. 6] 

It should be noted that TRW credit records are stored 
on magnetic tape and these had to be translated into a 
format usable tor MFTES in a microcomputer environment. 
Applicable portions of each TRW credit record examined were 
extracted and reformatted into a format easily utilized by 
the MFTES. Figure 3.5 shows the employee and data headings 
of an actual case (The SSN has been altered) in that 


format. 


EMPLOYEE (SSN; GSLEVEL,GSSTEP, MARITAL STATUS,ZIP CODE) 


TYPE DATE DATE TYPE AMOUNT 
DATA( ,RMRK,RPRTD,OPEN,ACCT, ,AMT,BAL,PAST DUE, _) 


emp loyee( ’000-00-0000’;,9, smarried,’93943’). 

data( scurr_acct,1085;682,1 ,985,3845;924,0;0). 
data(_,curr_acct,1185;380;,;r;_;780;400;25,;0). 
dGata(_;,;’30_day_del’,985,1179,r,_,1759,;1682,157,1). 
data(_s,curr_acct,985,1283;,r,685,584,584,54,1). 
data( ,curr_acct,585,1176,r,485,2861,0,0;0). 

data( ,curr_acct,885,1184,r,585,700;807,15,;0). 





Figure 3.5 MFTES case format 


Some tinancial information, such as an employee’s grade 
and step data, is not contained on the TRW credit 
report and was added to the new format for use in 


determining monthly income. This specific type of 


salary information is available trom a personnel record 


or database. 


F. ANALYSIS FOR BANKRUPTCY 


The first step was to determine if the individual 


had already been reported bankrupt. Bankrupt accounts 
would be indicated by comments starting with ’BK’. Mate 
an individual was found to be bankrupt then 


administrative actian is left to the discretion af the 
investigating organization. Other less drastic but 
still serious situations, such as a bankruptcy petition 
filed or dismissed might also be indicated. In either 
case such an occurrence might warrant further 
investigation of this individual. (CRef. i; pp. 8-10] 

If no bankruptcy credit remarks were identified the 
second step was to check the credit report for the 
potential of a bankruptcy occurring. This was done by 
examining all credit remarks in the report, determining 
their overall weight value and then comparing that 
value to a previously established cut off level for 
potential bankruptcy. If the overall weight value 
exceeded that cut off level then a potential for 
bankruptcy was indicated. The rationale is that any 
individual accumulating a large number of derogatory 


accounts such as delinquent or collection accounts is 


en 


Placing himself in the position of facing potential 
bankruptcy. 

Another indicator of potential bankruptcy is the 
number of inquiries shown in the credit report. An 
inquiry indicates an individual has approached a credit 
institution to borrow money. The rationale here is 
that if several inquiries appear in the report, this 
shows the individual was in desperate need of money and 
was trying hard to get the required credit by 
approaching as many institutions as he could. Almost 
always this characteristic is an indicator of an 
impending bankruptcy. CRef. 1; pp. 10-12] The 
drawback to this rationale is the uncertainty of just 
how many inquiries constitute too many. For example, 
one individual might nave over 30 inquiries in a given 
period if he was seeking credit for some legitimate, 
though semi-risky business venture he was considering 
trying. On the other hand another; more financially 
limited individual, desperate for cash; might have only 
approached up to eight credit institutions before he 
was able to prevail upon a credit authorizer that he 
deserved a loan. Since there was no sound heuristic 
available for determining when too many inquiries 
became a derogatory attribute, the inquiries were 
worked into the weighting scheme and calculated as part 
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oft the overall weight value. Figure 3.6 illustrates 
the flow af reasoning used by MFTES in bankruptcy 


analysis. 


TAKE UP TRW 


REPORT 









ALREADY 
BANKRUPT ? 


NEGATIVE 
COMMENTS? 


TOO MANY 
INQUIRIES? 





CORRECTIVE ACTION 











POTENTIAL BANKRUPT 










GO TO NEXT 
REPORT 






Figure 3.6 Flawchart for Bankruptcy Analysis 


G. ANALYSIS FOR SUPERPAYER 

If no potential bankruptcy was identified then the 
credit report was examined for a Superpayer condition. 
In this case an individual’s discretionary monthly 
income was compared against the monthly payments shown 
in his TRW credit record. Monthly discretionary income 
was derived, as shown in Figure 3.7 by computing the 
emp loyee’s disposable income minus his expenses. 

Disposable income was determined by first 
calculating an employee’s annual income. The Annual 
[ncome Figure was obtained by comparing grade and step 
information to the General Schedule table which is 
completely modeled in MFTES. 

Second a determination was made if the individual 
was married or not. If he was married then the Annual 
Income Figure was increased by 60 percent. This was a 
heuristic given by the financial expert as a reasonable 
increase in income that a working spouse (future 
program refinement must make a distinction between a 
working and non-working spouse), on average, will 


provide. 


(eS 














DISCRETIONARY INCOME = DISPOSABLE INCOME ~ EXPENSES 







DISPOSABLE INCOME = ANNUAL INCOME FIGURE 
FROM GS SCHED 


(AIF) 
















:IF MARRIED THEN AIF = AIF * 1.64 





sDETERMINE TAXES 
IF AIF < 10,000 


| THEN TAX RATE = O% 
IF AIF < 30,000 


THEN TAX RATE = 15% 
ELSE TAX RATE = 28% 


NET RATE = 1 — TAX RATE 
= AIF * NET RATE 
EXPENSES = RENT + FOOD 


sRENT FROM ZIP CODE/RENT TABLE 
:FOOD = AIF * 20% 


















MUNIHLY DISCRETIONARY INCOME = 
DISPOSABLE INCOME - EXPENSES 
12 






MONTHLY PAYMENTS = TOTAL MONTHLY BALANCES DUE * 10% 





THEREFORE IF: 


MUNTHLY PAYMENTS > MONTHLY DISCRETIONARY INCOME 


"SUPERPAYER'" 


Figure 3.7 Monthly Discretionary Income 


Taxes also had to be computed. A Tax Rate, O 
percent if the annual income was less than $10,000 or 


15 percent if the annual income was less than 30,000, 
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was applied to the Annual Income Figure. The Net Rate 
was then figured by subtracting the Tax Rate from 1. 
The individual’s disposable income was therefore 
calculated by multiplying the Annual Income Figure by 
the Net Rate. 

Expenses were tTigured by calculating the 
individual’s annual Rent plus his annual cost of Food. 
A more complete representation af expenses would take 
into account other outlays such as clothing; 
transportation, insurance, etc. but these were 
considered by the financial expert to have less impact 
in determining a Superpayer condition. 

Annual Rent was computed by referencing a table of 
postal 2ip codes that were cross referenced to 
geographically established rents. In MFTES,; a portion 
of this table was constructed for the Monterey--Naval 
Postgraduate School area to demonstrate its application 
in Rent computation. This information is not available 
on the TRW report and must be drawn from some other 
database (future Program enhancement could have the 
expert system acquire data from multiple databases 
before analysis begins). 

Food was calculated by multiplying the Annual 
Income Figure times 20 Percent. The financial 
consultant provided this heuristic for the calculation 
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of the average annual amount af money an American 
family spends on food. Monthly discretionary income 
then became Disposable Income minus Expenses divided by 
12 months. 

The employee’s total manthly payment was computed 
trom any Balances due that were found on the credit 
report. The Balances due for each account were summed 
together and then multiplied by 10%. This rule of 
thumb from the financial consultant asserts the 
average family’s monthly payment on a balance due will 
not generally exceed 10 percent of that balance. 

If the individual’s monthly payments shawn in his 
TRW credit record exceeded his discretionary monthly 
income then a superpayer condition existed. la iA) 
superpayer condition was determined then MFTES 
examined the individual’s credit report for an averall 
weight value. 

Another conclusion that can be made; and which 
infers a potentially detrimental situation, is the 
accumulation of too many current accounts. The 


presence ot several current accounts connotes two 


possible situations. First, the individual might be 
inadvertently placing himself iin the position of 
becoming overdrawn. This could happen if he suffers 


some type of financial setback and then is unable to 
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fulfill payment obligations on his many accounts. 
second; a large number of current accounts with low 
balances and high credit lines suggests the individual 
could use his combined total credit available to 
Turther extend Himself into an unsound financial 
position. Thus the number of current accounts 
appearing in a credit record was’ worked into the 
weighting scheme and calculated as part of the overall 


weight value. 


H. ANALYSIS OF OVERALL WEIGHT VALUE 

If there was no indication of bankruptcy or 
Ssuperpayer then some other measure of an individual’s 
Tinancial position was needed. In order to fairly and 
accurately measure the effect of any possible 
combination of credit remarks appearing in an 
employee’s credit record; an algorithm was needed that 
could handle the complexity of ali combinatorial 
possibilities for the 102 different remarks. The 
weighting scheme for overall weight value that was used 
in the MFTES prototype, was chosen to be continued 
because Ont l1ts ease of use; effectiveness and 
flexibility for future upgrade. 

Ihe overall weight value was determined by relating 


any remarks found in the report to a predefined point 


eo 


value (weight). These points were based a financial 
expert’s best estimate. The points ranged on a scale 
from 10 ta e200. Remarks with low derogatory value, 


such as a Current account, paid account, inquiry, etc. 


received the least number of points (10) for each 
occurrence. This permitted such remarks to appear ina 
credit report without significantly impacting the 


overall weight value, although any large accumulation 
of these remarks would begin to affect it. Remarks 
with higher derogatory value; such as bankruptcy, 
judqments, liens and foreclosures received the most 
points (200) for each occurrence. This ensured that 
single remarks of this more serious type, which 
significantly affect an individual’s financial 
position, had an immediate and heavy effect on the 
overall weight value. 

Each occurrence of a remark was multiplied by its 


weight and all remarks were then summed together to 


produce the overall weight value. That overall weight 
value was then compared to a scale marked with 
different cutoff levels. The cutoff levels, also 


provided by the financial consultant, defined different 
financial positions. For examples Figure 3.8 (SSN has 
been altered) shows a sample case with two current 
accounts, a 120 day delinquent account and a collection 
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account. The weights assigned to each remark and the 
current cut off levels are also shown. The weight 
assigned for each current account is 10, for the 
delinquent account is 40, and for the collection 
account is e200. The overall weight value then is 260 
GCcesGurr  aeecs * 10) 4 (1 delang_ieO * 40) + (1 
qHelmacete « 2OO))) A conclusion of Very Critical is 
assigned to any value that exceeds the Extremely High 
Cut Off Level of 200. If the overall weight value had 
exceeded 400 then a potential bankruptcy would have 
been indicated. This appears reasonable because it 
shows the employees although supporting two current 
accounts, experiencing difficulty paying off other 
debts, a fact that might be significant to his future 
financial position. This also shows the emphasis 
(large weight value) given to the appearance of a 


collection account in the credit record. 
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emp loyee( ’?555-55-5555’,2,9;,single, ’93943’). 
data(_,curr_acct,386,285,r,186,;2000,1749,86,;0). 
data(_s,curr_acct,986,485,r,886,0,0,0,;0). 

data(_ s,deling_120,686,685;r,4846,1,478,360,1). 
data(_,coll_acct,986,_;,r;786,599;0;0;0). 


weight_per_status(curr_acct,10). 
weight_per_status(deling_120;40). 
weight_per_status(coll_acct,c200). 


PB _CUT_OFF_VAL is 400. 
EXTREMELY_HIGH_CUT_OFF_VAL is 200. 
VERY_HIGH CUT_OFF_VAL is 170. 

HIGH CUT_OFF_VAL is 120. 
MODERATELY_HIGH_CUT_OFF_VAL is 100. 
LOW_CUT_OFF_VAL is 80. 
EXTREMELY_LOW_CUT_OFF_VAL is 40. 
VERY_LOW_CUT_OFF_VAL is 10. 





Figure 3.8 Sample case with weights and cutoff levels 
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IV. EVALUATIONS, CONCLUSIONS AND RECOMMENDATIONS 
A. EVALUATION RESULTS 
During the evaluation phase of the expanded MFTES 
all cases that were tested were real credit reports 
provided by Per Serer Each case was manually 
translated into a usable format before being run 
through the expert system. Of the 75 cases evaluated, 
Six required additional data input from the operator 
before MFTES was able to arrive at a conclusion. These 
cases, 1t was determined, had data improperly entered 
and were corrected before being re-evaluated. In all 
cases the resulting caonclusian from MFTES matched the 
predetermined judgment of the testers. This 
duplicated the results af the 24 hypothetical cases 
that were used during the project’s development. 
Additional tests were required to more thoroughly 
evaluate the MFTES conclusions against those of a human 
financial expert not previously associated with the 75 
test cases. An evaluation period with a financial 
censultant for this continued testing had been arranged 
but was not performed because of extenuating 
Circumstances. Observations made during testing were: 
- Some of the weights assigned to credit remarks were 
judged to be slightly higher than necessary and 
caused greater overall weights to show. This did 
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not appear to appreciably change any MFTES 
conclusions but a ’fine-tuning’ af the weights 
would make the system more accurate. 

- The run-times experienced during the analysis of 
each case were observed ta be ranging from 3 to as 
much as @3 minutes per case. The extreme was 
caused by three factors. First, the pragram 
involved considerable depth and breadth in its 
search strategies. Second, the Arity expert system 
shell, which had exceeded its limits in stack space 
several times during development; was probably 
reaching its limits ance again. Third, the 8 Mhz 
microcomputer, an which MFTES was installed was tao 


Slow. 


B. HARDWARE AND SOFTWARE REQUIREMENTS 

The MFTES was initially developed and set up to run 
on an 8 Mhz IBM PC, or compatible, with 640K RAM and a 
hard disk (minimum 10 meg recammended for secandary 
storage). This was judged inefficient however because 
af the large size of the program and the inherent time 
delays that causes. In the latter stages oaf 
development a 3 megabyte virtual disk was used to run 
the program. MFTES consumed approximately 2.5 megs af 


the virtual memory available and was significantly 
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taster. For example, the conclusion in a NORMAL case 
was reached in 3 to 3S minutes, while using virtual 
memorys and took €O to 30 minutes without virtual 
memory. In order to obtain more efficient run times a 
16-e0 Mhz CPU is recommended. 

Ihe sottware required to work with the program 
(Arity Expert System) is available off the shelf. No 
special training requirements are considered necessary 
other than basic familiarizations depending on the 
user’sS computer literacy. Operation of MFTES 18 user 


friendly and driven by the interface. 


Se OUCEESSES 

The program was successful in incorporating all 
credit remarks used by TRW and in developing the 
necessary rules for producing a valid conclusion about 
an employee’s financial position. In other words it 
successtully followed the documentary trail on an 
employee’s credit report and made an inference about 
his potential risk. 

4 side benetit is that the program could also be 
used as a training aid tor potential credit record 
analysts. The explanation facility’s display of how 


conclusions were reached is an excellent learning tool. 
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D. LIMITATIONS AND FUTURE IMPROVEMENTS 

The MFTES is limited to processing a single record 
at a time. This must be improved if the scrutiny of 
thousands of personnel holding security clearances has 
any chance of becoming efficient. A batch processing 
proqram that can review large numbers of records and 
“kick’ out those displaying normal attributes would be 
beneficial. Such a program could be used as a filter 
tor the expert system, Greatly reducing the number oft 
reports that would be forwarded to MFTES for analysis. 
Additional rules can be added to improve the level of 
expertise provided by a financial expert. 

Multiple complimentary types of expertise can be 
added to help provider broader analysis profiles. 
Examples include using medical and law enforcement 
expertise to develop psychological and criminal 
protiles. The expert system could provide conclusions 
specitic to the type of profile desired or to an 
overall combination of all types available. 

An interface can be developed that pipes [RW and 
Dob data directly into the expert system. This could 
be extended to cover any external database that the 
expert system required data from in order to complete 
1ts calculations. Examples include the qrade and step 
intormation for monthly pay calculation and zip codes 
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with their associated rental expenses for rent 
Ce Jew ilLeng vehalc This kind of improvement would eliminate 
the extra step that now occurs in translating records 
to a more usable format before analysis. 

Ihe user interface, although straightforward and 
easy to uses 1s plain and could be improved by adding 
color; graphics and additional explanation features. 
Aan on-line help facility could further enhance use. 
Implementation od voice interaction through a 
Keytronics keyboard could facilitate an analyst’s use 
of the expert system’s explanation module. The analyst 
could then more naturally ‘pose’ the questions. he 
wanted answered without having to worry about exact 
keyboard entry. 


Ihe expert system can have incorporated the ability 


to monitor TRW data longitudinally for the same 
sub jects. This would Provide a capability for 
comparisons of individuals and performing trend 


. 


analysis. 

; the overall weight value calculation algorithm 
could be revised for improved accuracy and efficiency. 
kun-time efficiency as well as stack and storage 


problems might also be improved with a newer version of 


the Arity software. 


Finallys more testing needs to be done. More real- 
world cases should be evaluated with different analysts 
tor comparison. Only a thorough testing of MFTES would 
ensure weaknesses were properly identified. Possibly a 
benchmark program designed by financial analysts who 
currently perform credit record screening could be 


administered. 
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APPENDIX A —- SOURCE CODE 

This appendix contains the source code for the 
expanded MFTES. This includes the front end file 
(CRD13.ARI); the calculations file (CRD13.CAL), the 
rules file (CRD13.RUL), and the taxanomy file 
(CRD1I3.TAX). The source code was included because it 
was telt necessary to provide a hardcopy for 
documentation and maintenance, and to give anyone who 
wanted a convenient and complete way of examining the 
program’s structure. 

It is recognized that no one will probably input 
the code from this documentation. Arrangements can be 
made to obtain a copy of the software through Prof. 
SivasSankaran or Ledr. Salazar at the Naval Postgraduate 


Ssemoal: 


Si 


/* CRDI3-.ARI (FRONT END FILE) */ 


/* {this section of code starts the record reading 


Process. Unce a record has been analyzed the 


information is discarded in favor of another record of 


exit. */ 


start 
a= nl, repeat, 
cls, 
tmove (3,10); 
wo(303;42), 
tmove(15;10), 
we(30;,4e2);, 
tmove(10,10);5 
put('/),put(7); 


write(’ Input file to be interpreted: ”), 


read(Name of file); 
asserta(current case(Name_of_file));, 
CName of filel, 
{! run_aonce !]; 
write($Would you like another consultation 
read(X), gc(full), 
abolish(data/10) ,abolish(ing/e) ; 
abolish(employee_in_process/4), 
abolish(current case/1), 
abolish(balance _due/1), 
abolish(total monthly_expenses/1), 
nls X \= yes », X \= Ys 
cls; 
tmove(s,33), 
we(15,42), 
tmove(1e2,33); 
we(153;42), 
tmove(10,935), 
put(7),put(7), 
write(’: Quitting!’), 
tmove(20,;0). 


run once 


cls; 
tmove(S,10), 
we (50,42), 
tmove(15,10), 
wo(30;4e2) , 
tmove(10, 10) 9 
wa(/9,137), 


40 


2S) 5 


put(/),put(7)s,put(7),put(/) 5 
write(’ MW GR is - WG 2 2 bt BR he 
tmove(17,10), 

/* read(yY), */ 
root instance(perserec,I1,N); 
eval(concluded;,conclusion info,I;,Val;true,CF), 
fail. 

rim @inee = inllls 


/* CRD1I3.CAL (CALCULATIONS) */ 


/* Imis section of code includes computations as layed 
out in the rules. Each module retrieves a rule- 
specitied piece of data for calculation. */ 


get ssn(1,personal;ssn,CSSN/1.0]) :- 
employee (SSN;GS;,;SAL_STEP,;M STATUS;2ZIP),gc(full). 


/* This module for future use in requesting records by 
SEMo 5 oae 


write(’Input Social Security of Employee to be 
screened:’), 
wea(9, °#,;74) ,sput(7), 
read(SSN), 
emp loyee(SSN,GS,SAL_STEP,M STATUS,2ZIP); 
assert(employee(SSN,GS,SAL_STEP,M_STATUS;,;2IP)). */ 


get m_status(I,personal,m_status,(CM_STATUS/1.0]):- 
emp loyee(SSN,GS,SAL_STEPsM_STATUS;,2IP). 


met zip(Ils,personal,zip;CZIP/1.0)) :- 
S emp loyee(SSN,GS,SAL_STEPsM STATUS,2ZIP). 


/* the 1988 General Schedule for federal employees */ 


gs sal table(1,1,9811). 
gs_sal_table(1,2,10139). 
gs _ sal table(1,3,10445). 
gs_sal_table(1,;4,10791). 
gs_sal_table(1,5,11117). 
gs_sal_table(1,6,11309). 
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gs_sail table(1,7;11631). 
as_sal_table(1;8,11955). 
gs_sal_table(1,9;,;11970). 
gS Gal itable(l.1Owlcevane 
gs_sal table(e2,1,1103e). 
gs_sal_table(2,2,11294). 
qgs_sal_table(e2;,3,1165%9) . 
gs_sal_table(2@,4,11970). 
gs_sal_table(e2,;5,;12103). 
as_sal_table(2,6,12459). 
gs_sal table(e,7,12815). 
as_sal_table(2,8,13171). 
gs_sal_table(e2,9,135e27). 
qas_sal_table(e2,;10;139883). 
gs_sal_table(3,1,12038). 
gs_sal_table(3;2, 12439). 
gs_sal_table(3;3,;12840). 
as_sal_table(3;4,13241). 
gs_sal_table(3,5,13642). 
gs_sal_table(3;6,;14043). 
gs_sal_table(3;7,14444). 
gs_sal_table(3,8,14845). 
gs_sal_table(3,9,15244). 
qas_sal_table(3,10,15647). 
gs_sal_table(4,1,13519). 
qgs_sal_table(4,2,13963). 
gs_sal_table(45,;3,144193). 
gs_sal_table(4,4,14863). 
gs_sal_table(4,5;15319). 
gs_sal_table(4,;6,15743). 
gs_sal_table(4,7, i ay i, 2))) - 
as _sal_table(4,8,14463). 
gs_sal_table(4,9,17113). 
as_sal_table(4,10,17543). 
gs_sal_table(5,1,15118). 
as_ sal _ table(5,2,156ee). 
Qs_sal_table(5,;3;161264). 
as_ sal _ table(5,4,16630). 
as_sal_table(5,5,17134). 
gs_sal_table(5,6,17638). 
@s_salitanle(su7ststeeor 
gs _sal_table(5,8,18646). 
gs_sal_table(5;9;19150). 
qgs_sal_table(5,10,19654). 
Q@s_sal_table(6;1,14851). 
qs_sal_table(46,;2,17413). 
as_sal_table(6,3,17975). 
as_sal_table(6,4,18537). 
gs_sal_table(6,5,19099). 
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gs_sal_table(6,6,19661). 
q@s_sal_table(6,7,20223). 
@s_sal_table(6,8,20785). 
as_sal_table(6,9,21347). 
gs_sal_table(6,10,21909). 
@s_Sal_table(7,1,187264). 
os_sal_table(7,2,19350). 
gs_sal_tadle(7,3,19974). 
gas_sal_table(7,;4,20598). 
gs_sal_ table(7,5,21222). 
gs_sal_table(7,6;,2184646). 
gs_sal_table(7,7,22470). 
gs_sal_table(7,8;,;23094). 
gs_sal_table(7,9,23718). 
as_sal_table(7,10,2434e2). 
as_sal_table(8,1,20739). 
gs_sal_table(8,2;:21430). 
os _sal_table(8,3;ee2121). 
os_sal_table(8,4,e2e8le). 
gs_sal_table(8,5,23503). 
gs_sal_table(8,6,24194). 
a@s_sal_table(8,7,24885). 
gs_sal_table(8,8,25576). 
gs_sal_table(8,9,26267). 
gs_sal_table(8,10,26958). 
gs_sal_table(9,1,22907). 
gs_sal_table(9,2;,;23671). 
gs_sal_table(9;3,24435). 
gs_sal_table(9,4,25199). 
gs_sal_table(9,5,25963). 
gs_sal_table(9,6;,;267727). 
gs_sal_ table(9,7,27491). 
gs_sal_table(9,8,28255). 
gs _ sal _table(9,9;2e9091). 
gs_sal_table(9,;10;29783). 
gs_sSsal_table(10,1,e5ee6). 
Q9s_sal_table(10,2,;26067). 
gs_sal_table(10,3,26908). 
os _sal_table(10,4,27749). 
as_sal_table(10,5,2e8590). 
Q@s_sal_ table(10,;6,29431). 
gs_sal_table(10,7,30e72). 
gs_sal_table(10;8,311193). 
gs_sal_table(10,9,31954). 
gs_sal_table(10,10,32795). 
gs_sal_table(11,1,e27716). 
Qg@s_sal_table(11,2,28640). 
gs_sal table(11,3,29564). 
gs_sal_table(11,4,30488). 
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gs_sal_table(11,5,31412). 
@s_sal_table(11,6,323364). 
gs_sal_table(11,7,33260). 
gs_sal_table(11,8,34184). 
gs_sal_table(11,9,35108). 
gs_sal_table(11,10,;346032). 
gs_sal_table(1e,1,33218). 
gs_sal_table(12,2,34325). 
gs_sal_table(12,;3,35432). 
gs_sal_table(12,4,36539). 
gs_sal_table(12,;5,37644). 
qas_sal_table(1le2,6,;38753). 
gs_sal_table(12,7,39860). 
gs_sal_table(12,8,40947). 
gs_sal_table(12;9;42074). 
gs_sal_table(12,10,43181). 
gs_sal_table(13,;1,39501). 
gs_sal_table(13,2,40818). 
gs_sal_table(13;3,42135). 
gs_sal_table(13,4,43452). 
gs_sal_table(13,;5;,;44749). 
gs_sal_table(13,46,460864). 
gs_sal_table(13,7,47403). 
gs_sal_table(13,8,48720). 
gs_sal_table(13,;9,;50037). 
gs_sal_table(13,10,513954). 
gs_sal_table(145,1;44679). 
gs_sal_table(14,2,48235). 
gs_sai_table(14;3,;49791). 
gs_sal_table(14,4,51347). 
gs_sal_table(14,5,52903). 
gs_sal_table(14,6,54459). 
gs_sal_table(14,7,546015). 
gs_sal_table(14,8,57571). 
gs_sal_table(14,9,59127). 
gs_sal_table(14,10,460683). 
gs_sal_table(15,1,54907). 
gs_sal_table(15,2,56737). 
gs_sal_table(15,;3,585467). 
gs_sal_table(15;,;4,60397). 
9s_sal_table(15,5,62ee7). 
gs_sal_table(15,6,64057). 
gs_sal_table(15,7,465887). 
gs_sal_table(15;,;8,47717). 
gs_sal_table(15,9,69547). 
gs_sal_table(15;10;719377). 
gs_sal_table(16,1,64397). 
gs_sal_table(16,2,66544). 
gs_Sal_table(16,3,;68491). 
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Qas_sal_table(146,4,70838). 
as_sal_table(16,5,72500). 
as_sal_table(14,6,;73440). 
gs_sal_table(16,7,75765). 
gs_sal_table(146,8,77870). 
gs_sal_table(146,9,79975). 
gs_sal_table(17,1,73958). 
as_sal_tabdle(17,2,744293). 
Qgs_sal_table(17,3,78888). 
as_sal_table(17;4,813593). 
gs_sal_table(17,5,83818). 
as_sal_tablie(18,1,86682). 


Petco Mm@ace tml col acct col leacetm mss cols mAe— 
CT_N/1.0]):- 


findall(coll _acct;data(_,coll_acct,_53_;_s_s_5s_s_s_)oL)>;5 


length(L,COLL_ACCT_N),ge(full). 
get_d 60_n(I;d_460;d_460_n,C(D_50_N/1.0]):- 


findali(deling_60,data(_,deling_40>5_;5_;5_; r) 9_9_s_)sb)z 


length(L,D_40_N),gce(full). 


get_d_40_a(I,d_40,d_60_a,(D_40_A/1.0]):- 


findall(Amount,data(_,delingq_60,_+5_;_53_:;_,Amount,s >5_ 


Ads 

total _d_40_a(A,D_S0_A),gcel(full). 

tolGalipadyGOnaCEl,O)3;— !. 

total _d_ 60 a(CA:Lj1,D_60_A):- 
total _d 60 _a(L,Subtotal);s 
D_60_ A is Subtotal + A. 


GeregeoOrgii,d 90,0 _90_ns6D 7 9OUN/ 1.01) :— 


Vo= 


findall(deling_90;,data(_,deling_9705_5_»5_; 9 99.9) gles 


length(L,D_90_N) ,gc(full). 
get_d_ 90_a(I,¢d_90,d_90_a,CD_90_A/1.0]) :- 


findall(Amount,data(_s,;deling_90s_5_s_s_s_sAmounts_>5_ 


A)s 

tetal d 90_a(A,D_90_A),gc(full). 

wersel Cl WO_AC does Ue 

tecal Gd 7O_atfCA:;LJ,D_90_46):- 
total _d 90_a(L,Subtotal), 
D_90_A is Subtotal + A. 


Gated leo ntl,d.120,d_ 120 mn; fD_1e0_N/1.01):— 
findall(deling_120,data(_s,;deling_120;_3_s_s_»s_»_»s_» 
[Es 

length(L,;D_120_N),gc(full). 
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get_d_120_a(1.d_ le0sd) 120 a,b Deeoma, to 
findall(Amount,data(_;deling_120,_;3_;_3;_;_sAmount;_;_)- 
3A) id 
total _d_120_Aa(A,D Neorg). qge<tul oe 
wae el Wo a0 CdgQ)g= - 
total d 120 a(CAiL],D_120 A):- 

total _d_120_a(L;,Subtotal), 

D_120_A is Subtotal + A. 


get_d_150_n(1I;d_150,d_150_n,C€0D_150_N/1.0]):- 
findall(deling_150,data(_;deling_150;5_3_3_3_3_3_3_3_)s- 
L),; 
length (a, Dalsomnyerge (full 

geteds l50ma Gide tS On cielo Omats Darts Oma alam est 
findall (Amount ,data(_s,deling_150;_;_3s_3;_3s_sAmount;_;_)- 
3A)s 
total _d_150_a(A;D_150_A)sgc(full). 
total dl i50la0l Jno) 
total_d_150_a(CAiL1],;D_150_A):- 

total_d_150_a(L;Subtotal), 

D_150_A is Subtotal + A. 


get_d_ 180_n(1;d_180,d_180_n,C€D_180_N/1.0]) :- 
findall(deling_180;,data(_;,;deling_180;_3_3_3s_s_s_s_3s_)s- 
iL 6 

length(L;D_180_N);,gc(full). 
get_d_180_a(1I;d_180,d_180_a,(€D_180_A/1.0]):- 
findall(Amount,data(_s;deling_180;_;_3;_3s_3s_;sAmount;_;_)- 
3A); 
total d_180_a(A,D_180_A)sgc(full). 
total d_180_atlil,0)2— 
total_d_180_a(CAiL1,D_180_A):- 

total_d_180_a(L;Subtotal);s 

D_180_A is Subtotal + A. 


get_c_w_60_n(1I;c_w_60,;¢c_w_60_n;CC_w_60_N/1.0]):- 
findall(c_w_60,data(_;,;c_w_40;_;_; Poo oo ae 
length(Ls;C_w_60_N);,gc(full). 
get_c_w_60_a(I;c_w_60;c_w_60_as;€C_w_60_A/1.0]):- 
findall (Amount sdata(_;c_w_60;5_s_;3_s_;_sAmount;s_;_);A); 
total c_w_60_a(A;C_w_60_ A)d;gcl(full). 
total _c_w_60_a([];0):- !. 
total_c_w_60_a(CA:iLIJ;C_w_60_A):- 
total_c_w_60_a(L;,Subtotal), 
C_w_60_A is Subtotal + A. 


get_c_w_90_n(I3;c_w_90;c_w_90_nsCC_w_9O_N/1.0]):- 
findall(c_w_90;data(_3;c_w_90,5_5_3_5_3_3_3_3_)s3lL);3 
length(L,;C_ w_9O_N);sgc(full). 
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Germe Ww 70 (1, c w 90;c w_9O8as le w_9O_A/150]):- 
findall (Amount, data ~»C_W_905_5_3_3_s_sAmounts_3_)35A)>5 
total_c_w_90_a(A;C_w_90_A);gc(full). 
tatal_c_w_90_a(C]l, Oy ie 
total_c_w_90_a(CAiL1,;C_w_90_A):- 

total _c_w_90_a(L,Subtotal), 

C_m_ WO AS SwWilaiseieeyl ce fy 


SotmeemleOrailsc Ww leOs,cuwlleO ms, FC W120 NyYl.01):— 
findalli(c _Ww_ 120,data( »C_W_ fc, sy hs See) eis 
lengthiL, C_w_ 120 _N) sge(full). 

Ge west eO 3 ie Ww i20,c w 120 a,lOsweleo A711 .ois- 
findall (Amount ,data(_sc_w_120,_5_5_5_s_sAmounts_3_);A)>5 
total _ c w_120_a(A;C_w_120_A)sgc(full). 
CoOcalecuwel Ona Cha, 0) :3— 4: 
total _c_w_1e0_a(CA:L1,C_w_120 A):- 

total _ c_w_120_a(L;Subtotal), 

C_w_1ie20_A is Subtotal + A. 


Ge tecewWwaloOnmCls,cawnl Osc we 150 mm, LEswelsoyN?7 1 50))) :— 
findalli(c _w_150, data( _3sC_W_ 150, eee pee Es 
length(Ls C_w_ 150 _N)sgc(full). 

get_c_w_150_a(I,c_w_150,c_w_150_a,[C_w_150_A/1.0]):- 
findall (Amount ,data(_sc_w_1505_5_3_3_s3_sAmounts_;_)3;A); 
total _c_w_150_a(A;C_w_150_A)sqgc(full). 
eave Cm USO aC as@y gS Ue 
total _c_w_150_a(CA:LI,;C_w_150_A):- 

total _c_w_150_a(L,Subtotal), 

C_w_1i50_A is Subtotal + A. 


get_c_w_180_n(I,;c_w_180;c_w_180_n;CC_w_180_N/1.0]):- 
Ffindall(c_w_180;data(_,c_w_1805_5_5_3_5_s_»9_»s_)ol); 
length(Ls;C_w_180O_N),gce(full). v 
get_c_w_180_a(I;,c_w_180,c_w_180_a,CC_w_180_A/1.0]):- 
findall(Amount;,data(_s;c_w_180;_3_3_3_3_sAmount;_;_);A); 
total_c_w_180_a(A;C_w_180_A),gc(full). 
we call Cm MeO ECE dpOIg= We 
total_c_w_180_a(CA'LI],;C_w_180_A):- 
- total_c_w_180_a(L,Subtotal), 
C_w_180_A is Subtotal + A. 


get_pdbyd1lr_n(I,pdbydilr,pdbydir_n,€PDBYDLR_N/1.0]):- 

findall(pdbydilr,data( spdbydlr,_;_;_5;_>s_;:_;:_s_);3L); 
length(L,PDBYDLR_N)sgqce(full). 

get_pdbydlr_a(I,pdbydilr,pdbydlr_a,CPDBYDLR_A/1.0]):- 

findall (Amount ,data(_spdbydlr,_5,_53_;s_s_sAmount; _ 3_)5A)s; 

total pdbydlr_atA, PDBYDLR (2) o@ye Cirwul LD) 

total _pdbydlr_a(Cl, O}sg= Uc 

tetal pdeydir_atClLAtL],PDBYDLR_A):- 
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total_pdbydlr_a(L,Subtotal), 
PDBYDLR_A is Subtotal + A. 


get_suit_n(I,suit,suit_n,CSuit_N/1.0]):- 

findall(suit,data(_,Suits,;_5_3_s_3s_s_3_s_)slL)s; 
length(L,Suit_N),ge(full). 

get _ suit_a(I,suit,suit_a,(fSuit_A/1.0]1):- 


findall(Amount,data(_,;Ssults_5_3;_»s_;3;_sAmount,s_;_);A); 
total suit_a(A,Suit_A),gcl(full). 
toltal suit acl Or — a: 


total suit_a([CAilLj,Suit_Ad:- 
total suit_a(L,Subtotal), 
Suit_A 1s Subtotal + A. 


get_Bbk_vals(I,trw,bk_vals,CBK_VALS/1.0]):- 
bk 7_file(BK_7); 
bk_11_file(BK_11),; 
bk _ 13_file(BK_13);, 
bk _ 7_disc(BK_7_DISC); 
bk_7_dism(BK_7_DISM), 
bk 13 _comp(COMP), 
BK_VALS is 
BK _7+BK_11+BK_13+BK_7_DISC+BK_7_DISM+COMP, 
gce(full). 


bk_7_file(BK_7):- 
(data(_,bk_7_fil@,_5_5_ 3 _53_53_3_3_)s 


BK_7 1s 200) ; BK_7 15°06. 


bk_11_file(BK_11):- 
(data(_,bk_1il_file,_;5;_;_,; ay 8 Ss 
BK_i1 is 200) 5; BK_11 is O. 


bk_13_file(BkK_13):- 
(data(_,bk_13_file,_s_;_; 3 33 ss 


BK_13 is 200) 3 BK_13 is 0. 


bk _ 7_disc(BK_7_DISC):- 
(data(_,Dbk_7_diSC;_5s_53_5 5 _s_3_3s_)s3 


BK_7_DISC is 200) ; BK_7_DISC is 0. 


Dbk_7_dism(BK_7_DISM):- 
(data(_,bDk_7_disms_35_; eye th ete.) o 


BK_7_DISM is 200) 3; BK_7_DISM is O. 
bk _ 13 _comp(COMP) :- 


(data(_,bk_13_cComps_»_s_»5_5s_3s_3s_3_)s 
COMP is 200) ; COMP is O. 
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memper(X,CXi_]). 


member(X,;C_:¥1):- member(X;Y). 


show_ 


bk_file message(T_bk_vals;,Bk_vals):- 


nl,put(7),write(*The person is bankrupt.’); 


Bk_val_per_status(T_bk_vals,Bk_vals). 


show_0k_disc_message(T_bk_vals,Bk_vals):- 


bk_ 


write(’The person 


nlsput(7), 


val_per_status(T_bk_vals,Bk_vals). 


show_Dk_ dism_message(T_bk_vals;,Bk_vals):- 
nl,put(7), 

write(’The bankruptcy petition was 
cqdismissed/completed.’), 

bk val_per_status(T_bk_vals;sBk_vals). 


not_Bbankrupt_case(Bk_Vals):- 


Dk_val_per_status(not_bankrupt;,Bk_ Vals). 


1S a discharaqed bankrupt.”’): 


/* Alternate method of searching for Bankrupt credit 
remarks that may be modified in the future. 


look_ 


next _ 


( 


look_for_bk_remark(BK_VALS);BK_VALS is O. 


for_Dk_remark (BK_VALS) :- 


data(_ ,CREDITREMARK, _»_3_:s_s_3s_s_3_)> 

case(CCREDITREMARK=bk_7_file->VAL is e200; 
CREDITREMARK=bk_11_file->VAL is 200, 
CREDITREMARK=bk_13_file->VAL is e200, 
CREDITREMARK=bk_7_disc->VAL is 200, 
CREDITREMARK=bk_11_file->VAL is e000; 
CREDITREMARK=bk_7_dism->VAL is 200. 
CREDITREMARK=bk_11_file->VAL is 200, 
CREDITREMARK=bk_13_file->VAL is 200, 
CREDITREMARK=bk_13_comp->VAL is 200: 
VAL 16 OJ]);!5 

if tnenelse(VAL=200,BK_VALS is 200;next_bk 


Dk _ search:-— 

data(_,CREDITREMARK;s_s_s_5s_s_s_s_s_)s!s 

get_bk_vals(I,trw,bk valss,{BK_VALS/1.01]). 
check_bk_file(Temp_BK_VALS;BK_VALS)3 
check_bk_disc(Temp_BK_VALS;BK_VALS) )3 
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_search). 


check_bk_dism(Temp_BK_VALS,BK_VALS) ). 


get_bk_vals(I,trw,bk_vals,CBK_VALS/1.0]):- 
bk_val_per_status(not_bankrupt,BK_VALS). 


check _bk_file(Temp_BK_VALS,BK_VALS) :- 
member (Temp_BK_VALS,Cbk_7_file,bk_11_file,bk_i3_filel]), 
show_bk_file_message(Temp_BK_VALS,BK VALS). 


check_bk_disc(Temp_BK_VALS,BK_VALS) :- 
member (Temp_BK_VALS,Cbk_7_disc,bk_11_disc]);s 
show_bk_disc message(Temp_ BK_VALS,BK VALS). 


check_bk_dism(Temp_BK_VALS,BK_VALS) :- 

member (Temp_BK_VALS,[CbkK_7_dism,bk_1l11_dism,bk_13_dism, 
bk_i13_comp]), 
show_bk_dism_message(Temp BK_VALS,BK_VALS). 


*/ 


get notpdaa_n(I,notpdaa,notpdaa_n,CNotpdaa_N/1.0]):- 
findall(notpdaa,data(_,notpdaas_5_s_:s_s_s_s_3s_)sl)s5 
length(L,Notpdaa_N),qc(full). 
get_notpdaa_a(I,notpdaasnotpdaa_a,CNotpdaa A/1.0]):- 
findall(Amount,data(_,notpdaa,_,_53_3_s_sAmounts,_53_)3;A)s5 
total notpdaa_atA,Notpdaa A),gcelfull). 
total_notpdaa_a(C1],0):- !. 
total _notpdaa_a(CAiL],Notpdaa_A):- 

total _ notpdaa_a(L,Subtotal), 

Notpdaa_A is Subtotal + A. 


get_fclos_vals(I,foreclosure, foreclosure weight_val, 
CFCWTVAL/1.0]):- 
data(_s,foreclosure€,_53_3_3_5_3_3s_3s_)+3 
show_foreclosure_message, 
weight per_status(foreclosure,FCWIVAL) ,gcl(full). 


get_fcios vals(I,foreclosure, foreclosure weight _val; 
EBEWRVAB AieOnpa 
FCWTVAL is O,gcl(full). 


show_foreclosure_message:-— 
nl,put¢(7) 9 


ra) 


write(’There is a foreclosure item in the report.’). 


get_ judgment _vals(I; judqment, judqment weight _val, 
CIDWTVAL/1.0]):- 
data(_,judqments_5s_3_5_s_3_3_3s_)+5 


show_judgment_message, 
weight _per_status( judgqment,JDWTVAL) ,gc(full). 


get_ judgment _vals(I,; judqment; judgment _weight_val;, 
CIDWTVAL/1.0]):- 
OW Gt omOn ge mel lela. 


show_judqment_message:-— 
nl sput(7), 
write(’There is a judgment item in the report.’). 


get_repo vals(I,repo;repo_weight_val, 
CREPOWTVAL/1.0]):- 
data(_;repos_5s_5_5s_s_3s_s_3s_)s 


show_repo_message;s 
weight_per_status(repo,REPOWTVAL),gc(full). 


get_repo_vals(I,repo;repo_weight_val; 
CREPOWTVAL/1.01]):- 
REPOWTVAL is O;,qc(full). 


show .repo _message:— 

nl ,put(7), 

write(’There is a repossessed item in the 
Bmemoitet. 9 ds 


reverse text(Text):- 
name(Text,l),; 
length(L,N), 
wa(N,112), 
put(7), 
write(Text). 


G@eteocecol! fac milspd_coll jac,;pd_coll_ac_in; 
Peeececl AC _N/ 1.07) 3- 

Gigealiccog coll acsdatat.,pd_coll_aCs_s_»5_s_sis_si9)417 
(9 

benatntl,-D COLE ACLNIsgetfull- 


ail 


get_charge_off_n(I,charge_off;,charge_off_n; 

SEAR GC EOE aN /eleO el mei 
findall(charge_offs,data(_,charge_offs_;_5_5_3s_3_3_3_)37- 
L)s 

length(L,CHARGE_OFF_N),gc(full). 


check_recent_ing(I;inquiry;sno_of_ing;sCNoE/1.01]1):- 
tindall(DoI,ing(_,DoI),L);, 
length(L,;NoE_1); 
NoE_e2 is NoE_1 —- 10; 
ifthenelse(NoE_2 <O,NoE_3 is O,NoE_3 is NoE 2), 
ifthen(NoE_3>5,show_ing_message) ; 
ifthenelse(NoE 3=0,NoE is O,NoE 1s NoE_1). 


show_ing_message:-— 
nl, put(7),write(’Too many inquiries’). 


get_curr_acct_n(I,superpayer ,;curr_acct_n;,C€N/1.0]):- 


findall(curr_acct,data(_scurr_acct,_3;_5_3_:s_;3_3s_35s_)35lL);5 
length(L,N_1); 
NEC is eN eee lcOr, /*only over 10 curr_accts are 
bad ¥*/ 


ifthenelse(N 2 < O;N_3 is O,N_3 is N_@); 
if thenelse(N_3=0,N is O3N is N_@2); 
@SlrPULND ¢ 


show_curr_acct_message:- 
nl,put(7),write(’Too many active creditors’). 


/* compute_total_monthly_payment(111111116,5864). */ 

compute _total_monthly_payment (SSN,Expenses) :- 
next_match,gc(full); 
total_monthly_expenses(Expenses) s 
current_case(Current_Case); 

(Current Casel,gc(full). 

/* This 1s to reintroduce the data() predicates just 
wiped out during the total monthly payment computations 


*/ 


next match:- 
next payment 3; total_monthly_payments. 


next payment:- 
data(A,B,C,;D,E,F,Gs;Balance Due;H,1);!, 
ifthen(var (Balance _Due),Balance Due is 0), 
asserta(balance_due(Balance_Due)); 
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retractall](data(4,B,C,D,E,F,G,Balance_Due,H,1)),ge(ful- 
l)s 


next match. 


total _monthly_payments:- 

findall( Balance _Due,balance_due(Balance_Due),L), 
total _balances(L,Total_ Balance), 

Expenses is Total Balance*0.10, 
assertz(total_manthly_expenses(Expenses)). 


total balances([],0):- !. 

total balances(CS:LJ,Total_Balance):- 
total Bbalances(L,Subtotal), 
Total _ Balance is Subtotal + S. 


betimactall(xs—= retract (X),fail: 
Geitiga= talelCxX)s\-retract ( Cxii=yv)); fall. 
retractall(_). 


compute _total_monthly_payment(_,0O). 

/* 

compute _discretionary_income(iiii111116,single,93943,- 
3000). */ 

/* compute_discretionary_income(_;_;3;_;3000). */ 


compute_discretionary_income(SSN,Discretionary_In- 
come) :- 
amp loyee(SSN,GS_ Level,Sal Step,M Status,Zip), 
gs_sal_table(GS Level,Sal_ Step,!), 
iftnhenelse(M_Status=married, Income is I[*1.60; 
Income is I); 
tax(Income,Tax_rate), 
rent(Zip;Rent);, 
Food 1s Income*0O.20; 
Net rate is 1-Tax_rate,; 
Disposable_income is Income*Net_rate, 
Expenses is Rent+Food, 
Yrly_discretion_amount is 
bisposable_income-Expenses;s 
Diser_Inc is Yrly_discretion_amount/tie, 
Discretionary_Income 1s 
round (Discr_Inc;0),qgc(full?). 


tax(Income,Tax_rate):- 
case(CIncome<10000->Tax_rate is 0O,; 
Income<30000->Tax_rate is 0.15: 
Tax_rate is 0.28)]). 


Se) 


meine ©’ SISIP7ASI? 9 7/OK9))) « 
rent (793949 ,700). 


/* All conclusions are based these weighted decisions. 
*/ 


weighted decision(10,normal). 
weighted_decision(2O,normal). 

weighted _decision(30,;normal). 

weighted _decision(40,satisfactory). 

weighted decision(S0,satisfactory). 

weighted decision(60,less_than_satisfactory). 
weighted_decision(70,less_than_satisfactory). 
weighted _decision(80;poor). 

weighted decision(90;poor). 

weighted _decision(100,very_poor). 

weighted decision(1i10,very_poor). 

weighted decision(120,serious). 

weighted decision(130;,seriocus). 

weighted decision(140,serious). 

weighted decision(150,very_serious). 

weighted decision(1&60,very_seriocus). 

weighted _decision(170;,critical). 

weighted _decision(180,critical). 

weighted decision(190;critical). 

weighted _decision(_,very_critical). 


weight _per_status(pdbydl1r,50). 
weight_per_status(notpdaa,30). 
weight per_status(coll_acct,200). 
weight per_status(pd_coll_ac,30). 
weight _per_status(charge_off,200). 
weight per_status(inguiry,10). 
weight_per_status(curr_acct,10). 
weight _per_status(foreclosure,coo). 
weight per_status( judqment,200). 
weight _per_status(repo,200). 
weight _per_status(suit;70). 
weight_per_status(deling_60;30). 
weight_per_status(deling_ 90,30). 
weight per_status(deling_120;,40). 
weight per_status(deling_1i50,40). 
weight_per_status(delinqg_180,50). 
weight_per_status(c_w_60,10). 
weight_per_status(c_w_90,10). 
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weight_per_status(c_w_120,20). 
weight_per_status(c_w_150,20). 
weight _per_status(c_w_180,30). 
weight_per_status(insclaim,70O). 
weight_per_status(volnrepo;,i00). 
weight_per_status(cwpd,10). 
weight_per_status(cwpd_30,10). 
weight_per_status(cwpd 30bye;20). 
weight _per_status(cwpd_ 30by3,20). 
weight_per_status(cwpd 30by4,30). 
weight per_status(cwpd_30by5;,40). 
weight_per_status(cwpd_ 30by4,40). 
weight_per_status(accpd_30;20). 
weight _per_status(accpd 30bye;e20). 
weight_per_status(accpd 30by3;20). 
weight_per_status(accpd_ 30by4,30). 
weight_per_status(accpd 30by5,40). 
weight_per_status(accpd 30by6;40). 
weight _per_status(pacc _wpd_30,10). 
weight_per_status(pacc_wpd 30by23;20). 
weight_per_status(pacc_wpd 30by4,30). 
weight_per_status(pacc_wpd 30by5,;40). 
weight_per_status(pacc_wpd_ 30by6,40). 
weight per_status(pacc_wdelé60,;10). 
weight_per_status(pacc_wdel90;20). 
weight_per_status(pacc_wdel1l20,30). 
weight_per_status(pace_wdel150;,40). 
weight_per_status(pacc_wdel180,50). 
weight_per_status(pd_repoa,;50). 
weight_per_status(pd_chg_off,50). 
weight _per_status(pd_foreclo;50). 
weight_per_status(bkliqreo,e00). 
weight_per_status(settled;50). 
weight_per_status(bk_adj_pln;e00). 
weight_per_status(scnl_nwloc;50). 
weight per_status(co_now_pay;50). 
weight per_status(fore_proc;,e00). 
weight_per_status(gov_claim,70O). 
weight_per_status(close_np_aa:50). 
weight _per_status(scnl,100). 
weight_per_status(fed_tax_1n,200). 
weight_per_status(fed_tax_rel,50). 
weight_per_status( judgmt_sat,50). 
weight_per_status( judg_vacat,10). 
weight_per_status(mech_lien,coo). 
weight_per_status(mech_rele,;50O). 
weight_per_status(mn_mtg_fil;10). 
weight_per_status(nt_respon;seo). 
weight_per_status(stat_tx_Iln,e00). 


a=, 


weight_per_status(sta_tx_rel,50). 
weight _per_status(suit_dismd,10). 
weight per_status(wage_asign,;5VU). 
weight per_status(wa_release,10O). 
weight per_status(refinanced,10). 
weight_per_status(cr_cd_lost,10). 
weight per_status(clos_inac,10). 
weignt_per_status(transfered,10). 
weight _per_status(too_new_rt,10). 
weight _per_status(paid_satis;,10). 
weight _per_status(paid_acct,10). 
weight _per_status(deceased,10). 
weight_per_status(cr_Iln_clos;3S0). 
weilght_per_status(redmd_repo;30). 
weight_per_status(cur_was_col;30). 
weight_per_status(cr_In_rnst;10). 
weight_per_status(cur_was_for,;30). 
weight _per_status(pd_not_aa;,e2o). 
weight_per_status(city_tx_1n;200). 
weight _per_status(city_tx_rel;,50). 
weight_per_status(consel _ser,ce0). 
weight _per_status(co_tax_1n,200). 
weight_per_status(co_tax_rel,50O). 


weight_for_superpayer(e20o0). 


bk_val_per_status(not_bankrupt;0O). 
bk_val_per_status(bk_7_disc,200). 
bk_val_per_status(bk_7_file,200). 
bk _val_per_status(bk_11_file,;200). 
bk_val_per_status(bk_7_dism,200). 
bk _val_per_status(bk_11_dism,200). 
bk_val_per_status(bk_1i1_disc,200). 
bk _ val _per_status(bk_13_dism,200). 
bk_val_per_status(bk_13_file,200). 


bk val_per_status(bk_13_comp,200). 

get_insclaim_n(I,insclaim,insclaim_n,CIinsclaim_N/1.0j]- 

yes 

Ffindall(Cinsclaim,data(_sinsclaims_3_3s_;s_;s_:s_s_s_)5l)s5 
length(L,Insclaim_N);,gc(full). 

get_insclaim_a(lI,insclaim,insclaim_asCInsclaim_A/1.0]- 

findall (Amount sdatal_sinsclaims_5_53_s_3s_sAmoOunts 5_) 5- 

A)s 

total _ insclaim_a(A,Insclaim_A),gc(full). 

total insclaim_a(C],0O):- !. 

total _insclaim_a(CA:iLJ],Insclaim_A):- 
total_insclaim_a(L,Subtotal)s 
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Insclaim_A is Subtotal + A. 


get_volnrepo_n(I;volnreposvolnrepo_n,{Volnrepo_N/1.0]- 
Yes 
Gtndall(volngepo,data(_,volmmyepo,_»_s_s_s_s_s.»_)sl)s 
length(L;,Volnrepo_N);gc(full). 
get_vaolnrepo_a(I;,volnrepo,volnrepo_a,CValnrepo_A/1.0]- 
Fe 
findall(Amount;sdata(_s,volnrepo;_;_5_»_3_;Amounts 3_)5- 
Ads 
total _volnrepa_a(A,Volnrepo_A). 
total volnrepo_a([],0):- !. 
total_volnrepo_a(CAiL],Valnrepo A):- 
total_volnrepo_a(L,Subtotal), 
Volnrepo_ A is Subtotal + A. 


get_cwed_ n(I,cwpdscwed_n;CCwed_N/1.0]):- 
findall(cwpd,data(_,cwpds_s_3_:s_s_s_3_3_)sL); 
length(L,;Cwpd_N),gc(full). 
get_cwod_a(I,cwpd;scwpd_as(Cwpd_A/1.01):- 
findall (Amount ,data(_,cwods_s_s_s_s_sAmount, 5_)3A); 
total cwod_a(A,Cwpd_ A)s,qcel(full). 
total_cwed_a([]J;,0):- !. 
total cwod_a(fCAiLj],Cwpd_A):- 
total cwpd_a(L,Subtotal), 
Cwod_A is Subtotal + A. 


get_cwpd_30_n(I,cwpd_30,cwpd_30_n;C€Cwpd_30_N/1.0]):- 
findall(cwpod_30;,datal_scwpd_30;s_;_5_3_3_3_5s_3_) sl), 
length(Ls,Cwoed_30_N);sgc(full). 

get_cwpd_ 30_a(I1;cwod_30;,cwed_30_a;,CCwod_30_A/1.0]1):- 
Ffindall (Amount ,data(_scwpd_30s_53_s_s_s_sAmounts_3_)3sA)s 
total _cwpd_30_a(A;Cwpd_30_A);gc(full). 
teltal ewed SO0O_a(fi,Oy:-— !. 
total _cwpod_30_a(fA:L],Cwpd_30_A):- 

total cwpd_30_a(L,Subtotal), 

Cwpod_30_A is Subtotal + A. 


get_cwed 30by2_n(I,cwpd 30bye,cwod 30bye_n.CCwpd_30bye- 
Ao = 
findall(cwpd_ 30bye,datal_scwpd_30byes_5s_;3_3_3s_s_3s_3s_)37- 
(ees 

length(L,Cwpd_ 30bye_N),gclfull). 
get_cwod 30bye_a(I;cwpd_ 30bye,cwed_30bye_a,CCwpd_ 30bye- 
A o@a ves 
findall(Amount;,datal_,cwpod_ 30bye, 5 _3_3_s_sAmount;s _ ;_)- 
2A)s 
total_cwpd_30by2_a(A;sCwpd 30bye2_A)sgcel(full). 
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total_cwpd_ 30bye_a(fJ],0):- !. 

total _cwpd 30bye_a(CAiLlj],Cwpd_30bye_A):- 
total _cwpd 30bye_atL,Subtotal), 
Cwpd_ 30bye_A is Subtotal + A. 


get_cwpd_30by3_n(I,cwpd_30by3;,cwpd_30by3_n,CCwpd_30by3- 
N/A Ol he= 
Ffindall(cwpd_30by3,data(_s,cwpd_30by3;_ 
Le 6 


9 3 3 3 3 3 NaS 


es — — — — — — 


length(L,Cwpd 30by3_N),gc(full). 

get_cwpd_ 30by3_a(I,cwpd 30by3,cwpd 30by3_a;,CCwpd_ 30by3- 
ele OP) Be 
findall (Amount ,data(_;,cwpd_30by3;,_;_5s_s_s_sAmount,_53_)- 
9Ads 
total _cwpd_S30by3_a(A,Cwpd 30by3_A);gce(full). 
total _ cwpd_ 30by3_a([J,0):- !. 
total _cwpd 30by3_a(fLAiLji,Cwpd_ 30by2_A):- 

total cwpd_ 30by3_a(L;,Subtotal), 

Cwpd_30by3_A is Subtotal + A. 


get_cwpd_ 30by4%_n(I,cwpd 30by4,cwpd 30by4_n,CCwpd 30by4- 
EN7 TO = 
fiandall(cwpd_30by4,datal(_scwpd_S30by4s5_5_5_s_5s_s_»s_s_)97- 
L) 5 
length(L,Cwpd_30by4_N),gc(full). 

get_cwpd 30by4_a(ls,cwpd 30by4,cwpd_ 30by4_a,CCwpd 30by4- 
OZ 5010 9= 
findall (Amount ,data(_,cwpd_30by4,_53_3_5s_s_sAmount;_s_)- 
9A); 
total_cwpd_S30by4_a(A,Cwpd_ 30by4_A)s,gc(full). 
total cwpd 30by4_a(£J,0):- !. 
total _cwpd_30by4_a(fAiL],Cwpd_ 30by4_A):- 

total _cwpd_ 30by4_a(L,Subtotal), 

Cwpd_ 30by4_A is Subtotal + A. 


get_cwpd 30by5S_n(I,cwpd_ S30byS,cwpd_ 30by5_n,CCwpd 30bys- 
WNW il Od) a= 
findall(cwpd_ 30byS5;,datal(_,cwpd 30by5;5_5_5_5s_3_3_3_3_)39- 
Ld), 
length(Ll,Cwpd_ 30by3_N),gc(full). 

get_cwpd_30byS_a(I,cwpd 30byS,cwpd 30by5_a,[CCwpd 30by5- 
-A/1.01)3:- 
Findall(Amount,data(_;cwpd_ 30by55_5_5_3_5_sAmount;_;_)- 
sA)s 
total _cwpod_ 30by5_a(A,Cwpd_30byS_A),gcifull). 
total cwpd 30byS5_a(lJ,0):- !. 
total _cwpd_ 30byS_at(fCA:iL1,Cwpd_ 30byS_A):- 

total _ cwpd_ 30byS_a(L,Subtotal)s 

Cwpd_30byS5_A is Subtotal + A. 
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get_cwpd_ 306by4_n(1;,;cwpd_30by46,cwpd_ 30by6_n,CCwpd_ 30by4- 
Ny. OI) = 
findall(cwpd_30by46,datal(_s,cwpd_ 30byS5_3_53_5_3_3_3_53_)9- 
L),; 
length(L,Cwpd_ 30by6_N),gc(full). 

get_cwpd_30by6_al(1;,cwpd_30by4;,cwpd_30byé_a,(CCwpd_30byd6- 
Adi o@l) as 
findall(Amount;,data(_s;cwpd_30by6;_5_5_3_s_sAmount,_3_)- 
»Ads 
total _cwpd_ 30by6_a(A;s;Cwpd 30byé_A),ge(full). 
total_cwpd_ 30by6_a([J;,0):- !. 
total _cwpd_ 30byé6_a(CAiLI,;Cwpd_30by6_A):- 

total_cwpd_30byé_a(L,Subtotal), 

Cwpd 30by6_A 1s Subtotal + A. 


get_accpd_ 30_n(1,accpd_30,accpd_30_n,;,CAccpd_30_N/1.0]- 
Pi 
findall(accpd_30;,data(_,accpd_305_;5_s_s_s_s_s_s_)5bL)5 
length(L,Accpd_30_N),gc(full). 
get_accpd_30_a(1;,accpd_30,accpd_30_a,CAccpd_30_A/1.01]- 
Ng 
findall (Amount sdata(_,accpd_30,;_5_s_3_s_sAmounts_»3_)s5- 
A), 
total accpod 30_a(A;Accpd_ 30_A);,gc(full). 
total_accpd_30_a(f€];0):- !. 
total _accpd 30_a(CAiLIJ;Accpd_30_A):- 
total_accpd_30_a(L;,Subtotal), 
Accpd_30_A is Subtotal + A. 


get_accpd 30bye_n(I,accpd_30bye,accpd_ 30bye_n; 
CAccpd_30bye_N/1i.0])3- 
findall(acepd_ 30byesdata(_,accpd_30byes_5_s3_5_s_s_3_3_7 
Wine) 5 
length(L,Accpd 30bye_N),gce(full). 
get_accpd 30by2_a(lsaccpd_30bye;,accpd_30bye_a; 
PAcepdEsObvelAy 10d). z= 
findall(Amount;data(_saccpd_30by2s_;5_s_5_s_sAmounts_s_— 
1sA)s 
total _accpd 30bye_a(A,Accpd_30bye_A),gcel(full). 
total_accpd_ 30bye_a((],0):- !. 
total accpd 30bye_a([AiL],Accpd_30bye_A):- 
total_accpd_30bye_a(L;,Subtotal), 
Accpd_30by2@_A is Subtotal + A. 


get_accpd_ 30by3_n(I,accpd_30by3,accpd_30by3_n; 
CAccpd_ 30by3_N/1.0]):- 
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findall(accpd_30by3;,data(_s,accpd_30by3;_3_3_s_3s_5s_3s_3s_7— 
YsL); 
length(L;,Accpd_ S30by3_N);,gce(full). 

get_accpd 30by3_a(I,accpd_ 30by3;accpd_ 30by3_a; 
CAccpd 30by3_A/1.0]):- 
findall (Amount ,data(_saccpd_ 30by35_5_3s_s_s_sAmounts_3;_~— 
YsA); 
total _accpd 30by3_a(A;,Accpd_ 3Oby3_A);,gcl(full). 
total _accpd_ S30by3_a([1,0):- !. 
total_accpd 30by3_a(CA:itlL1],Accpd 30bye A):- 

total_accpd_ 30by3_a(L,Subtotal), 

Accpd 30by3_A is Subtotal + A. 


get_accpd 30by4_n(l;,accpd_ 30by4;,accpd_ 30by4_n; 
CAccpd 30by4_N/1.0]):- 
findall(accpd_ 30by4,data(_s;,accpd_ 30by4;_3_5_3s_s_3_3_3_— 
),L); 
length(L;,Accpd_ 30by4_N),gc(full). 
get_accpd 30by4_a(l,accpd_30by4,accpd_ 30by4_a; 
CAccpd 30by4_A/1.01]1):- 
findall (Amount;,data(_s;accpd 3O0by4s,_5_5;_3_3_sAmount;_;5_— 
Nef) 
total _accpd_30by4_alA;Accpd_30by4_A);,gclfull). 
total _accpd_ 30by4_a([1],0):- !. 
total_accpd_ 30by4_a(CAiL1,Accpd_30by4_A) :- 
total_accpd_ 30by4_a(L,Subtotal)s 
Accpd_30by4_A is Subtotal + A. 


get_accpd 30byS5_n(1l,accpd_ 30by5;,accpd_ 30by5_n; 
CAccpd_ 30by5_N/1.0]):- 
findall(accpd 30byS3;,data(_,accpd 30by55_;3_3_53_3s_3_3_3_7— 
YsL);, 
length(L,Accpd 30by3_N);,gc(full). 
get_accpd 30by5_a(lI,accpd 30by5;accpd 30by5_a; 
CAccpd_ 30byS_A/1.0]):- 
findall(Amount,datal(_,accpd 30by5;_;_3_53_3;_sAmount; ; — 
»);A); 
total_accpd 30by5S_a(A,Accpd_ 30by5_A);,gclfull). 
total accpd 30by5_a([],0):- !. 
total_accpd 30byS_a(CA:LI],Accpd 30byS_A):- 
total _accpd 30byS_a(L,Subtotal), 
Accpd 30by5_A is Subtotal + A. 


get_accpd 30by6_n(l1;,accpd_ 30by6;accpd_ 30by46_n; 
CAccpd 30by6_N/1.0]):- 
findall(accpd 30by6,data(_,accpd 30byS5_;_3_53_3_5_3_3_- 
),L);5 
length(L,Accpd 30by6_N);,qc(full). 
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get_accpd_30by6_a(Il,accpd_ 30byé;accpd_30byé6_ a, 
CAccpd 30by6_A/1.0]):- 
findall (Amount ,data(_,accpd 30by4s,_»_5_;_3_sAmount;_;_-— 
.sA)s 
total_accpd 30by46_a(A;,Accpd_ 30byS&_A)sqel(full). 
total_accpd_30by6_a(CJ],0):- !. 
total_accpd 30by4_a(CAiLI1,Accpd 30by6_A):- 
total_accpd_30by46_a(L,Subtotal), 
Accpd_ 30by6_A is Subtotal + A. 


get_pacc_wpd_30_n(I;pacc_wpod_30,pacc_wpd 30_n, 
CPacc wped_30_N/1.90]):- 
findall(pacc_wpd_30;data(_;pacc_wpd_30;3_3_3_5_5_s_5_3_~ 
y,L), : 
length(L;Pacc _wpd_30_N),gc(full). 
get_pacc_wpd_30_a(I;pacc_wpd_30;pacc_wpd_30_a; 
Gracemup cms OmA/ enon. — 
findall (Amount,data(_;pacc_wpd_30;_;_s_3s_s_sAmount;s_;s_- 
3A); 
total pacc_wpd_30_a(A;Pacc_wpd_30_A);,qgce(full). 
total_pacc_wpd_30_a((],0):- !. 
total pacc_wpd_ 30_a(CAiL1,Pacc_ wpd_30_A):- 
total_pacc_wpd_30_a(L,Subtotal), 
Pacc_wpd_30_A is Subtotal + A. 


get_pacc _wpd_ 30bye3_n(I,pacc_wpd_S30bye3;pacc_wpd 30bye- 

3_ns 

[Pacc wpd_ 30by23_N/1.0]):- 

findall(pacc_wpd_ 30bye3; 

data(’ ;pacc_wpd_30by235_5s_s_5_s_s_s_s_)sk)s5 
length(L,Pacc wpd 30bye3_N);,qgcel(full). 

get_pacc_wpd_ 30by23_a(Ispacc_wpd_30by23;,pacc_wpd_30bye- 

3_a; 

(Pacc_wpd_30by23_A/1.0]):- 

findall (Amount ,data(_s;pacc_wpd_30bye23;3_5_5_3_;s_sAmount— 

5 3_)3A)s5 

total pacc_wpd 30by23_a(A;,Pacc_wpd_30bye3_A);gcel(full). 


total_pacc_wpd_30bye3_a(C];,0):- !. 
total _pacc_wpd_30bye3_a(CAiL],Pacc_wpd_30bye3_A):- 
total _pacc_wpd_30bye3_a(L;Subtotal)s, 

Pacc_wpd_30bye23_A is Subtotal + A. 
get_pacc_wpd 30by4_n(I,pacc_wpd_30by4;pacc_wad_30by4_ns 
CPacc_wpd_ 30by4_N/1.0]):- 
findall(pacc_wpd_30by4;,data(_;,pacc_wpd_30by4%s_s_s_s_s_7 
Hoses leg 

length(L,Pacc_wpd_ 30by4_N),gc(full). 

get_pacc_wpod_ 30by4_a(I,pacc_wpd_30by4;,pacc_wpd_30by4_a;, 
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{Pacc wpd_ 30by4_A/1.0]1):- 
findall (Amount ,data(_s,;pacc_wpd_30by4;,_;5_s3s_s_;_sAmount;— 

2_)3A); 
total _pacc_wpd_ 30by4_a(A;Pacc_wpd_30by4_A);,gce(full). 
total pacc_wpd 30by4_a(Cji,0):- !. 
total_pacc_wpd_30by4_a(CA:L1,Pacc_wpd_30by4_A):- 
total _ pacc_wpd_30by4_a(L,Subtotal)s 

Pacc_wpd_ 30by4_A is Subtotal + A. 


get_pacc_wpd 30byS_n(I1;pacc_wod 30byS5;,pacc_wpd 30by5_n; 
CPacc_wpd_ 30by5_N/1.01]):- 
findall(pacc_wpd_30by5;,data(_;pacc_wpd_ 30by5;_;_5_3_;3_7- 
»_3_3_)sbl)y 
length(L,Pacc_wpd_30by5_N);,gc(full). 
get _pacc_wpd 30by5_a(l,pacc _wpod_ 30by5;,pacc _wpd_ 30by5_a; 
CPacc_wpd_ 30by5_A/1.0]):- 
findall (Amount ,datal_;,pacc_wpd_S30Oby5;5_;3_5;_;_;3_s;Amount;- 
» _)3A); 
total_pacc_wpd_S30by5_a(A,Pacc_wpd_30by5_A)sgc(full). 
total pacc_wpd_ 30by5_a([1,0):- !. 
total _pacc_wpd_30byS_a(CA:ilLj)],Pacc_wpd_30by5_A):- 
total_pacc_wpd_30byS5_a(L;,Subtotal), 
Pacc _wod_30by53_A is Subtotal + A. 


get_pacc _wpd 30by4_n(1,pacc_wpd 30by6;pacc wpd 30by6_n; 
(Pace _wpd_ 30by6_N/1.01):- 
findall(pacc_wpd_30by4;,data(_;,pacc_wpd_ 30by4;s_;5_;3_;_s_~- 
»>_3_3_)olL)s 

length(Ll,Pacc _wpd_30by6_N);,gce(full). 
get _pacc _wpd 30by6é_a(l;,pacc _wpd 30byé6;pacc _wpd 30by6é_a; 
CPacc_wpd_30by6_A/1.0]1):- 


findalli(Amount,data(_;,;pacc_wpd_30by6;5_;3_;3_;3_;_;Amount ;-~ 
_3_)sA)s 

total _ pacc_wpd_30by6_a(A;,Pacc_wpd_30by46_A)sqce(full). 
total pacc wpd 30by6_a(CJ;0):- !. 


total_pacc_wpd_ S30by4é_a(CAiLj1,Pacc_wpd_30by6_A) :- 
total pacc_wpd 30by6_a(L;Subtotal), 
Pacc wpd_ 30by6_A is Subtotal + A. 


get_pacc_wdeldS0_n(I;pacc_wdel460,pacc_wdeld0o0_n; 
CPacc_wdeld6é0_N/1.0]):- 
findall (pace wdel60;,data(_;,;pace wdeld0,_; 5 _5_53_3_3_3_- 
YolLd sy 

length(L,Pacc wdeld0_N),gc(full). 
Get_pacc_wdel60_a(I;pacc_wdel6é0;pacc_wdeld0_a; 
CPacc_wdel60_A/1.01):- 
findall(Amount,data(_;pacc_wdeld0O;_5_;_3_3;_sAmount;_3_—- 
»,A); 
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total _pacc_wdel60_a(A,Pacc_wdel60_A),gc(full?). 

total pacc_wdeléo0_at(£€J,0):- !. 

total _pacc_wdel60_a(CAiLJ],Pacc_wdelé0_A):- 
total _pacc_wdel60_ a(L,Subtotal), 
Pacc_wdel60_A is Subtotal + A. 


get_pacc_wdel90_n(I;,pacc_wdel90,pacc _wdel90_n, 
CPacc wdel90_N/1.0]):- 
findall(pacce_wdel90,data(_;pacc wdel90,_5;_, 5 _3;_3_5_3_- 
d,L)>5 
length(L,Pacc _wdel90_N),qc(full). 

get_pacc_wdel90_a(I,pacc_wdel90;pacc_wdel90_a, 
CPacc_wdel90_A/1.0]):- 
Tindall (Amount ,data(_spacc_wdel905_5_5_3_s_s,Amount;_5_- 
»,A), 
total pacc_wdel90_a(A,Pacc_wdel90_A)s,qce(full). 
total pacc_wdel90_a([],0):- !. 
total pacc_wdel90_a(CAiLlj],Pacc _wdel90_A):- 

total pacc_wdel90_a(L,Subtotal), 

Pacc wdel90_A is Subtotal + A. 


get_pacc_wdelleo_n(I;pacc _wdelle0;,pacc_wdell20_n, 
CPacc_wdel1l20_N/1.0]):- 
findall(pacc_wdell20,data(_,pacc_wdel1l20;_;_5_;_3_»5_5_7- 
»9_)s5l), 

length(L,Pacc_wdel1l20_N);,gc(full). 
get_pacc _wdel1l20_a(I;,;pacc _wdelieO,pacc wdell2o0_as, 
Seacemndelleoua, 1700) s— 
findall(Amount,data(_,pacc wdelle2d,_;_5_5_3_;Amount,_5- 

»,A);, 

total:-pacc wdelleO_a(A,Pacc _wdell20_A),gcl(full). 
total pacc_wdelleo_a(Cjl,0):- !. 
total pacc_wdell2o0_a(CAilLjJ,Pacc_wdelle20_A):- 

total pacc_wdelieoO_a(L,Subtotal), 

Pacc_wdel120_A is Subtotal + A. 


get_pacc wdel1l50_n(I;,pacc_wdel150,pacc_wdel1l50_n; 
CPacc wdel150_N/1.0]):- 
findall(pacc _wdel150,data(_,pacce_wdel150;3_3_3_s_s_s_s_7 
eos 
length(L,Pacc _wdellS5O_N);,gc(full). 
get_pacc _wdel150_a(I,pacc_wdel150;,pacc_wdell50_as; 
CPacc wdel150_ A/1.0]):- 
findall(Amount,data(_,pacc_wdel150,_5;_5_5_s_;Amount,_;- 
»,A), 
total _pacc _wdel150_a(A;Pacc_wdel1l50_A),gc(full). 
Cemal pace wdellSO_aCL],0):— !. 
total pace wdel150_a(CAiLJ],Pacc_wdel150_A):- 
total_pace wdel1i50O_a(L,Subtotal), 
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Pacc _wdel1l50_A is Subtotal + A. 


@aet_pacc wdell80_n(I,pacc wdell80,pacc wdell180_n, 
CPacc wdeli80_N/1.0]):- 
findall(pacc_wdell80;,data(_spacc_wdellBO;,_3;_3_3_53_3_3_7— 
s_)sl)s 

length(L,Pacc_wdel1l180_N),qgc(full). 
get pacc wdell80_a(I,pacc wdell80;,;pacc wdell80 a; 
[Pace wdel180_A/1.0]):- 
findall (Amount ,data(_s,;pacc_wdel1l80;5_;3_5_;_s_sAmounts;_35- 

)3A)s 
total _pacc_wdeli80_a(A,Pacc_wdel180_A),gc(full). 
total pacc_ wdeil80_a((CJ,0):- !. 
total_pacc_wdel1i80_a(CAilLjJ,Pacc wdel1l80_A):- 
total _pacc wdell80_a(L,Subtotal), 
Pacc_wde1180_A is Subtotal + A. 


get_pd repo _n(I;,;pd_repo;pd repoin, 
C[Pd_repo_N/1.0]):- 
findall(pd_reposdata(_;pd_repos_3_5_3_s_3_3s_3_)3;L)s 
length(L,Pd_repo_N)sqel(full). 

get_pd repo_a(I;pd_repospd_repo_as; 
tPd repo A/1.0]):- 
findall(Amount,datat_,;pd repos _3_s_53_5_sAmount;,_3_)3A); 
total_pd_repo_a(A;Pd_repo_A);sqgct(full). 
total pd repo_a(CjJ;0):- !. 
total_pd_repo_a(CA:LJ,Pd_repo A):- 

total pd repo _a(L,Subtotal), 

Pd_repo_A is Subtotal + A. 


get_pd_ chg_off_n(I;pd_chg_off;spd_chg_off_ns 
tie _eln@_orr_N/l.Ol)s= 
findall(pd_ chg_off;data(_,pd chg_offs_5_3_3s_3s_5_s_3_)s7- 
Le 
lenqath(L;Pd_ chg_off_N),qgc(full). 
get_pd_chg_off_a(I,pd_chg_offspd_chg_off_as; 
veel Ere or? O71 6.0) 3= 
findall(Amount,data(_s;pd_ chg_ offs _3_3s_3s_53_sAmounts_ ;_)- 
3A); 
total pd_chg_off_a(A;,Pd_chg_off_A),gc(full). 
total pd chg_off_a(C},0):- !. 
total _pd_chg_off_a(CAiL],Pd_chq_off_A):- 

total _ pd chg_off_a(L;,Subtotal), 

Pd_chg_off_A is Subtotal + A. 


get_pd_foreclio_n(I;,;pd_forecio;pd_forecla_ns 
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CPd_foreclo_N/1.0]):- 
mamealltpditoreclo,data(_,pd_foreclo,_+_;_s_31_3_1_3_)s- 
L)s 
length(L,Pd_foreclo_N),gc(full). 
get_pd_foreclo_a(I;pd_foreclo;,pd_foreclo_a; 
(Pad _foreclo A/1.0]):- 
Tindall (Amount,data(_spd_foreclo,_+,_5_3_;_sAmount;_;,_)- 
»A)s 
total _ pd_foreclo_a(A;Pd_foreclo_A),gce(full). 
Tena lepdaetronec lo vaGh) Oi; = i. 
total _ pd_foreclo_a(CAiL1,Pd_foreclo A):- 
total_pd_foreclo_a(L;,Subtotal), 
Pd_foreclo A is Subtotal + A. 


get_bkligqreo_n(I,bkliqreo,bkliqreo_n; 
BE raleveraeomN/ ie. Oly) ss — 
findall (bkliqreo,data(_sbkliqreos_s_s_s_s_s_:s_s_)sl)s5 
length(L,Bkliqreo_N),gce(full). 
get_bkliqreo_a(I,bkliqreo,bkliqreo_a; 
CBkliqreo _A/1.0]):- 
findall (Amount,data(_,bkliqreas_3;_3_3_3_sAmounts_;_);5- 
A); 
total _bkliqreo_a(AsBkliqreao_ A)s,gc(full). 
total _ bkliqreo_a(C€],0):- !. 
total _ bkliqreo_a(CAiL];Bkliqreo_A):- 
total _ bkliqreo_a(L,Subtotal), 
Bkliqreo_ A is Subtotal + A. 


get_settled_n(I;ssettled,ssettledin;, 
CSettled_N/1.0]):- 
findall(settled,data(_,settleds_s_s_5_s_s_s_s_)sbL);5 
length(L,Settled_N),gc(full). 

get_settled_a(I,settled,settled_a; 
[Settled_A/1.0]):- 
findall (Amount,data(_,settleds_3;_3_5_s_sAmounts_;_)sA)>, 
total_settled_a(A,Settled_A),gc(full). 
total settled_a(CJ,0):- !. 
total _settled_a(CAiL1,Settled_A):- 

total settled _at(L,Subtotal); 

Settled A is Subtotal + A. 


get_bk_adj_pln_n(I;bk_adj_pln,bk_adj_pln_n; 

tla evel j_ellia_INw al Oa ya 
findall(bk_adj_pln;sdata(_sbk_adj_plms_s_s_s_s_s_s_s_Ja7 
L), 

length(L,Bk_adj_pln_N),gc(full). 
get_bk_adj_pln_a(I,bk_adj_pln,bk_adj_pln_a; 
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CBk_adj pln_A/1.0]):- 
findall(Amount,data(_ ,;bk_adj_ plns_;_:s_3s_3;_s:Amount;_»_)- 
9A) 3 
total bk_adj_pln_a(A;,Bk_adj_ pln_A)sqc(full). 
total bk_adj_pln_a([],0):- !. 
total bk_adj_ pln_a(CAilLj],Bk_adj pln_A):- 

total bk _adj_pln_a(L,Subtotal). 

Bk adj _pln_A is Subtotal + A. 


get_scnl_ nwioc_n(I,scnl_nwloc,scnl_nwloc_n;, 
ES Gi lmWiclom Ni/sieOH ist 
findall(scnl_nwlocs;data(_,scnl_nwlocs,_5_35_5_3_3_3_3_)3- 
L)s 
length(L,Scnl_nwloc_N),gc(full). 
get_scnl_nwloc_a(I;scenl_nwloc;scnl_nwloc a; 
CScnl_nwloc_A/1.0]):- 
findall (Amount ,data(_,scnl_nwloc,_3;_;_3;_»_s,;Amount,_5_)- 
3Ads 
total_scnl_nwloc_a(A;,Senl_nwloc_A),ge(full). 
total _ scnl_ nwioc_a([J,0):- !. 
total _ scnl_nwloc_a¢tlAilJ),Scnl_nwloc_A):- 
total_scnl_nwloc_a(L,Subtotal), 
Senl_nwloc_A is Subtotal + A. 


get_co_now_pay_n(1I;,co_now_Ppay;co_now_pay_ns 
[Co_now_pay_N/1.0]):- 
findall(co_now_pay,data(_,CoO_NOW_pays_»s_5_3_:3_:3_93_3_)9- 
L)s; 
length(L,Co_now_pay_N),qgce(full). 
get_co_now_pay_a(I,co_now_Ppay;,cCo_now_pay_a, 
[Co_now_pay_A/1.0]):- 
findall (Amount,datal_;Cca_now_pay>s_s_s_3_s_sAmount;_3_)- 
»A)s 
total _ co_now_pay_a(A,Co_now_pay_A),gc(full). 
total _co_now_pay_a([—J],0):- !. 
total _co_now_pay_a(CAiL1],Co_now_pay_A):- 

total _co_now_pay_a(L;sSubtotal), 

Co now_pay_A is Subtotal + A. 


get_fore_proc_n(I,fore_proc;fore _proc_n, 

CFore_proc_N/1i.0]):- 

findall(fore_proc,data(_,fore_procs;_s_3_3s_3_3_3s_3s_)slL);5 
length(L,Fore_ proc _N),gc(full). 

get_fore_proc_a(I,fore_proc,fore_proc_as; 

{Fore proc _A/1.0]):- 
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fonds PECem@ount.datat .fonesproecy. 5 5 _5_ >, _sAmount, 5 )>s— 
A); 
focal arene proc_atA,Fore proce _A),qe( full) . 
total _fore_proc_a([]J],0):- !. 
total _fore_proc_a(CA:L1,Fore_proc_A):- 
total _ fore _proc_a(L,Subtotal), 
Fore_proc_A is Subtotal + A. 


get_gov_claim_n(I,gov_claim,gov_claim_n; 
BEG ye lariimeaN Ale On) => 
fandall(goy_claimsdata(_sgov_claim;s »,_s_5_s_s_>_3_)sb);, 
lengtipCik Gov elaim N)sgetfull). 
get_gov_claim_a(I,gov_claim;,gov_claim_a, 
ReGvee leummay lO): — 
Ffindall (Amount,data(_;,gov_claims_5_3_5s_5_sAmount,_3_)5- 
Ads 
total _gov_claim_a(A,Gov_claim_A) ,gce(full). 
Boma evere Laima (Gat Ons y 
total _gov_claim_a(CAiLjJ,Gov_claim_A):- 
total gov_claim_a(L,Subtotal), 
Gov_claim_A is Subtotal + A. 


get_close _ np_aa_n(I,close_np_aa,close_np_aa_n; 
(Close _np_aa_N/1.0]):- 
Tindall(ciose_np_aas,datal(_,close_np_aas_s_3_53_53_3_3_3_7 
»,L); 
length(L,Close_np_aa_N)sgc(full). 
get_close_np_aa_a(I,close_np_aa,close_np_aa_a, 
[Close np_aa_A/1.0]):- 
findall(Amount,data(_,close np_aa;_5_;3_3s_»_sAmounts,_;_— 
)sA)s 
total_close_np_aa_a(A,Close_np_aa_A),gc(full). 
total close np_aa_a(fJ,0):- !. 
total close _np_aa_a(CA;:li,Close np_aa_Ad:- 
total_close_np_aa_a(L,Subtotal). 
Close _np_aa_A is Subtotal + A. 


get_scnl_n(I,scnl;scenl_n; 

BSc Nel aOun = 

findall(scenl,data(_,scnls,_+_+5_»_s_s_3_s_):sL)s; 
lemme Che Sem IN) pee cru!) 

get _scnl_a(I;scnl,scnl_a, 

Ls~einll vil aoe dS 

findall(Amount,datal_,scnl,_5_3_s_s_sAmount;,_+_);A), 

total_scni_a(A,Scenl_A),gc(full). 
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eee Senh ACh dg@)eo le 

tatal scnl_a(CA:iLjd,;Senl_A):- 
total _scni_a(L;Subtotal), 
Sscnl_A is Subtdétal + A. 


get_ted_tax_In_n(I,fed_tax_1ln,ted_tax_Iln_n; 
bletexal teu ini IN al o@ 1) 8= 
tindalltfed_tax_In,data(_,fed_tax_Ims_3_3_3_5_3s_3_3_) 9- 
L),; 
length(Ll,Fed tax _In_N),qgce(full). 
get _ ted tax_In_a(I,fed_tax_In,ted_tax_ln_as, 
LrFed_ tax_1ln_A/1.0]):- 
findall (Amount ,datal_;,;fed_tax_!lns_5_+s_3_3s_sAmount, _ ;_)- 
9A), 
total fed_tax_In_a(A;Fed_tax_!In_A),gcel(full). 
total _ ted tax Ines Cl ie) s— 
total fed_tax_In_a(CAi:L],Fed_tax_1]ln_A):- 
total _ fed_tax_ln_a(L,Subtotal), 
Fed tax _1In_A is Subtotal + A. 


get_fed_tax_ rel _n(I,fed_tax_rel,fed_tax_rel_in, 
(Fed _tax_rel_N/1.0]1):- 
findall(fed_tax_rel,data(_,fed tax _rel,_5_3_3_3_3s_5_3s_7- 
Jot), 
length(L,Fed_tax_rel_N),gce(full). 
get_ted_tax_rel_a(I,fed_tax_rel,fed_tax_rel_a, 
Lrked tax_rel_A/1.01):- 
tindall (Amount,data(_,fed_tax_rel,_3s_;_;_»s_;Amount;_;3_~ 
»sA)s5 
total _ fed_tax_rel_a(A,Fed_tax_rel_A)sgqc(full). 
Cota leds Cal xmm eles nO): tee 
total fed_tax_rel_a(CAi:L],Fed_ tax_rel_A):- 
total fed_tax_rel_a(L,Subtotal), 
Fed _tax_rel_A is Subtotal + A. 


get_judgmt_sat_n(I, judgmt_sat, judgmt_sat_n, 
LJudgmt_sat_N/1.0]):- 

tindall( judgmt_sat,data( ,judgqmt_Sat,_.,_5_5_5_3_s_3_)357- 
iBOrs 

length(L,Judgmt_sat_N),gc(full). 
get_judgmt_sat_a(!I, judgmt_sat,; judgmt_sat_a, 

Ljudgmt sat_A/1.0]):- 


tindall(Amount;,;data(_;judgmt_sat,_ 5 _5s_»5_3s_s;Amount;_,_)- 
9A) s 

total judgmt_sat_a(A,Judgqmt_sat_A);,gcl(full). 

total judgmt_sat_a({f1],0):- !. 
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total_judgmt_sat_a(CA:tL],Judgmt_sat_A):- 
total_judgmt_sat_a(L,Subtotal), 
Judgmt_sat_A is Subtotal + A. 


get_judg_ vacat_n(I; judg_vacat; judg vacat_n; 
Siticdeagmvacat iN? 10): — 
findall( judg_vacat,data(_,judg_vacat,_;_5_s_s_s_:9_+» 
L), 
lenath(L,Judg_vacat_N),gc(full). 
get_judg_vacat_a(I, judg_vacat, judg_vacat_a, 
CJudg_vacat_A/1.0]):- 
findall (Amount ;,data(_, judg_vacats_;5;_+_s;s_»_sAmount, 
9A)s 
total_judg_vacat_a(A,Judg_vacat_A),gc(full). 
total judg _vacat_a((J,O0):- !. 
total judg _ vacat_a(CAilLJ,Judg_vacat_A):- 

total _judg_vacat_a(L,Subtotal), 

Judg_vacat_A is Subtotal + A. 


get_mech_lien_n(I,mech_liensmech_lien_n;, 
C(Mech_lien_N/1.0]):- 


findall(mech_lien,data(_s;mech_lien;s_>s_; 3 3 9 990) ath) > 


length(L,Mech_lien_N),gc(full). 

get_mech_lien_a(I,mech_lien,mech_lien_a, 
(Meeh_lien_A/1.0]):- 
findall(Amount,data(_,mech_lien,s_s_s_s_s_sAmount,_s; 
ADs ; 
total_mech_lien_a(A,Mech_lien_A),gc(full). 
total _mech_lien_a(C],0):- !. 
total_mech_lien_a(CAiLJ,Mech_lien_A):- 

total_mech_lien_a(L,Subtotal), 

Mech_lien_A is Subtotal + A. 


get_mech_rele_n(I,mech_rele,mech_rele_n, 
CMech_rele_N/1.0]):- 


=), Lee 


findall(mech_rele,data(_,mech_reles_»s_s_s_s_s_s_s_)sbl)» 


length(L,Mech_rele_N),gc(full). 
get_mech_rele_a(I,mech_rele,mech_rele_a, 
tMechn_rele_ A/1.0)3):- 


findall(Amount,data(_,mech_reles_»5_s_»s_»s_»Amount,_s_ 


A); 
total_mech_rele_a(A,Mech_rele_A),gclfull). 
total_mech_rele_a(CJ,O):- !. 
total_mech_rele_a(CA:L],Mech_rele_A):- 
total_mech_rele_a(L,Subtotal), 
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No= 


Mech_rele_A is Subtotal + A. 


get_mn_mtg_fil_n(I,mn_mtg_filsmn_mtg_fil_n, 
elMin_ Gree) Fil WNW Od) ea 
findall(mn_mtg_fil,data(_smn_mtg_fils_s_53_s_s_3s_s_s_)3s7- 
Las 
length(LsMn_mtqg_fil_N);,gc(full). 
get_mn_mtg_fil_a(I;,;mn_mtg_fil;smn_mtg_fil_as 
Chinen gmt e/a Oni 
findall(Amount,data(_smn_mtg_fils_53_3_+s_s_sAmount;s_;_)- 
3A)s 
total _mn_mtg_fil_a(A,Mn_mtg_fil_A)sgc(full). 
total _ mn_mtg_fil_a(C1],0):- !. 
total_mn_mtg_fil_a(CAiLI,Mn_mtg_fil_Ad:- 

total _mn_mtg_fil_a(L,Subtotal), 

Mn_mtg_fil_A is Subtotal + A. 


get_nt_respon_n(I;,nt_respon;snt_respon_ns 
CNt_respon_N/1.0]):- 
findall(nt_respon,data(_snt_respons_s_s_3s_s_s_3s_3_)sl)s5 
length(L,Nt_respon_N)sgc(full). 

get_nt_respon_a(I,nt_respon,nt_respon_a,; 
CNt_respon_A@/1.01):- 
findall(Amount,data(_snt_respon;_s_s_s_s_sAmounts,_3;_)57- 
A)s 
total _ nt_respon_a(A,Nt_respon_A)sqgce(full). 
total_nt_respon_a((1],0):- !. 
total _ nt_respon_a(CAiLI,Nt_respon_A):- 

total _nt_respon_a(L,Subtotal), 

Nt_respon_A is Subtotal + A. 


get_stat_tx_In_n(I1,stat_tx_In,stat_tx_In_n; 
Sweng_ 2s ini oO) e= 
findall(stat_tx_In,data(_,stat_tx_1n5,_3s_5_3_53_3_3_3s_Js7— 
L),; 
length(L,Stat_tx_In_N);sgc(full). 
get_stat_tx_In_a(I,stat_tx_in,stat_tx_In_a; 
eSieene 9s lin_@y il pO) eo 
findall (Amount ,data(_s,;stat_tx_1ln,_3_3_3_3s_;Amount;_;_)- 
»A);s 
total _stat_tx_In_a(A;,Stat_tx_I1ln_A)sgc(full). 
total _ stat_tx_In_a((€],0):- !. 
total _stat_tx_In_a(CAiL],Stat_tx_In_A):- 

total _ stat_tx_Iln_a(L;Subtotal), 

Stat_tx_In_A is Subtotal + A. 
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get_sta_tx_rel_n(I,sta_tx_rel,sta_tx_rel_ns 
Sta tx rel _N/1.0]):- 
fimdallCstavtx rel sdata( j;Staltx rels_+_s_s_3_5_s.3. 
L)s 
length(L,Sta_tx_rel_N),ge(full). 
get_sta_tx_rel_a(I,sta_tx_rel,sta_tx_rel_as 
CSta_tx rel_A/1.0]):- 
Ffindall(Amount,datal(_,sta_tx_rels,_»,_3_s_;s_sAmount;_;_)- 
»A)s 
total _sta_tx_rel_a(A;,Sta_tx_rel_A),gc(full). 
total _ sta_tx_rel_a(CJ];,0):- !. 
total_sta_tx_rel_a(CAiLj],Sta_tx_rel_A):- 
total_sta_tx_rel_a(L,Subtotal), 
Sta_tx_rel_A is Subtotal + A. 


get_suit_dismd_n(I,suit_dismd;suit_dismd_n; 
CSuit_dismd_N/1.0]):- 
findall(suit_dismd,data(_,suit_dismd;_5;_5s_3_;3_3_3_3_)37- 
L)s 
length(L,Suit_dismd_N),gc(full). 
get_suit_dismd_a(1l,suit_dismd,suit_dismd_a, 
CSuit_dismd_A/1.0]):- 
tfindall(Amount,data(_s;suit_dismd,_;_s_3;_3;_;Amount;_;_)- 
sA)s 
total_suit_dismd_a(A,Suit_dismd_A);,gc(full). 
total suit_dismd_a(Cj],0):- !. 
total _suit_dismd_a(CA;:L1J,Suit_dismd_A):- 

total suit_dismd_a(L,Subtotal), 

Suit_dismd_A@ is Subtotal + A. 


get_wage_asign_ni(l,wage_asign;swage_asign_n; 
CWage_asign_N/1.0]):- 
findall(wage_asign;sdata(_s;wage_asigns_5_s_39_3s_3_2_93_)9s7 
os 
length(L,Wage_asign_N);gc(full). 
get _wage_asign_a(I;,wage_asign;wage_asign_as; 
(Wage _asign_A/1.0]):- 
findall(Amount;,data(_,wage_asign;_3;_3s_3_3s_;Amount;_;_)- 
1A) 5 
total wage_asign_a(AsWage_asign_A)sgclfull). 
tatal _wage_asign_a(CJ;,0):- !. 
total _wage_asign_a(CAiLJ),Wage_asign_A):- 

total _wage_asign_a(L;Subtotal), 

Wage_asign_A is Subtotal + A. 


Ou 


Get_wa_release n(I,wa_release,wa_release_n; 
CWa_release_N/1.0]):- 
findall(wa_release;,data(_,wa_releases_5_3_:3_3_:_3s_3s_)3s7 
Ls 

length(L,Wa_release_N),gc(full). 
get_wa_release_a(I,wa_release,wa_release a; 

(Wa release A/1.0]):- 


findall(Amount,data(_,wa_releases_s_s_s_s_sAmount,;_3_)- 
3Ads 

total _wa_release_a(A,Wa_release_A),gc(full). 

total wa_release_a(([—J,0):- !. 


total wa_release_a(CAiL],Wa_release_A):- 
total_wa_release_a(L,Subtotal), 
Wa_ release A is Subtotal + A. 


get_refinanced_n(I,refinanced,refinanced_n;, 
CRefinanced_N/1.0]):- 
findall(refinanced,data(_srefinanceds _53_3s_s_3s_3s_3s_s_)3s7- 
ee 

length(L,Refinanced_N),gc(full). 
get_refinanced_a(I,refinanced,refinanced_as 

CRefinanced A/1.01):- 


findall (Amount,data(_,refinanceds_3_s_3_3s_sAmounts 5_)- 
3A) s 

total _refinanced_a(A,;Refinanced A);,gc(full). 

total _ refinanced_a(€],;0):- !. 


total_refinanced_a(CAiL],Refinanced_A):- 
total refinanced _a(L,Subtotal), 
Refinanced A is Subtotal + A. 


get_cr_cd_lost_n(I;,cr_cd_lost,cr_cd_lost_n; 
SGgmccdmlcs tm NOH nr 
findall(cr_cd_lost;sdata(_,cr_cd_1loSts_;5_3s_3_3s_3s_3_3s_)37- 
Ld); 
length(L,Cr_cd_lost_N),gc(full). 
get_cr_cd_lost_a(I;,cr_cd_lost;cr_cd_lost_a;, 
CCr_cd_lost_A/1.0]):- 
findall (Amount,data(_s,cr_cd_lost;_;_3_3_s_sAmount,_;_)- 
9A); 
total_cr_cd_lost_a(A;,Cr_cd_lost_A),gc(full). 
total_cr_cd_lost_a(C1,0):- !. 
total_cr_cd_lost_a(CAiLi;,Cr_cd_lost_A):- 
total_cr_cd_lost_a(L,Subtotal), 
Cr_cd_lost_A is Subtotal + A. 


ae 


patecl!OS tnac nCl,clos inae,clos_inac_ny 
GENoscmimec N79): — 
Poeeahit(eclos inmac;datat j;elloe wnaec. +» sls 525 9 >_)sl?)> 
length(L,Clos_inac_N),gc(full). 
get_clos_inac_a(I,clos_inac,clos_inac_a, 
CClios_inac_A/1.0]):- 
Tindall (Amount ,data(_,clos_inac,_»_5_5_3_;Amount,_5_)3- 
Ads 
total _clos_inac_a(A,Clos_inac_A),gc(full). 
total_clos_inac_a((€J,0):- !. 
total clos_inac_a(CAiLjJ,Clos_inac_A):- 
total_clos_inac_a(L,Subtotal), 
Clos_inac_A is Subtotal + A. 


get_transtered n(I,transfered,transfered_n; 
CTransftered_N/1.0]):- 
findall(transfered,data(_,transfered, 5_5_3_5_3s_3_9s_)37- 
ds 
length(L,Transfered_N),gc(full). 
get_transfered a(I;,transfered,transfered a; 
C{Transfered_A/1.0]):- 
findall(Amount,data(_,transfered, ;_5_;_5_;Amount, _»_)- 
3A)s 
total _ transfered _a(A;,Transfered_A),gc(full). 
total _transfered_a(C1;,0):- !. 
total_transfered_a(CA:Lli,Transfered_A):- 

total _transfered_a(L,Subtotal); 

Transfered_A is Subtotal + A. 


get_too_ new_rt_n(I,too_new_rt,too new_rt_ns 
Pliocmmacwmmt oN 1203): — 
findall(too_new_rtsdata(_,ta0_new_rts_5_5_59_»_9_3_3_)97 
L)s 

length(L,Too_new_rt_N),gc(full). 

get_too_ new_rt_a(I;too_new_rt,too_new_rt_as 

[Too _new_rt_A/1.0]):- 


findall(Amount;,data(_,too0_new_rt, _5_5_s_s_s:Amount, »5_)- 
»Ads 

total _ too_new_rt_a(A,Too_new_rt_A)d;,gc(full). 

total too _new_rt_a(Cj,0):- !. 


total _too_new_rt_a(CAiLJ,;Too_new_rt_A):- 
total _too_new_rt_a(L,Subtotal), 
Too_new_rt_A is Subtotal + A. 


get_paid_satis_ntI,paid_satis,;paid_satis_n;, 


Ue 


[Paid _ satis N/1.0]):- 
findall(paid_satis,data(_,paid_ satis, 3 _3_3_3_9_»_»_)37- 
Ls» 
length(L,Paid_satis_N),gc(full). 
get_paid_satis_a(I,paid_ satis;,;paid satis_a; 
CPaid_satis_A/1.0]):- 
findall (Amount ,data(_s;paid_ satis, _»_5_»_»_,Amount,_»,_)- 
»A)s 
total _ paid _satis_a(A,Paid satis _A),gel(full). 
total paid _ satis_a([CJj,O):- !. 
total paid _ satis _ a(CA:iL],Paid_ satis _A):- 

total paid _satis_a(L,Subtotal);, 

Paid satis_A is Subtotal + A. 


get_paid_acct_n(I,paid_acct,paid_acct_n;, 
ERaie ace GaN /ienOrls) itis 
findall(paid_acct,data(_;paid_acct,_5_5_s_3s_»_s_:s_)sL)+5 
length(L,Paid acct_N),gel(full). 

get_paid_acct_a(I,paid_acct,paid_acct_a, 
CPaid_acct_A/1.0]):- 
findall (Amount ,data(_spaid_acct, _5_5_3_»_sAmounts,_»_)5- 
A), 
total _paid_acct_a(A,Paid acct_A)sge(full). 
total _paid_acct_a([J,0):- !. 
total paid_acct_a(CAiLJ],Paid_ acct_A)D:- 

total _paid_acct_a(L;Subtotal), 

Paid_acct_A is Subtotal + A. 


get_deceased_n(I,deceased ,deceased ns 
CDeceased_N/1.0]):- 
findall(deceased,data(_,deceased, 5; 5_5_5_5_53_3_) bl); 
length(_,Deceased_N),gc(full). 
get_deceased a(!l,deceased,deceased a, 
[Deceased _A/1.0]):- 
findall (Amount ,data(_,deceased,_5_5_5_5_,Amounts_»5_)5- 
A)s 
total _deceased_a(A,Deceased A),ge(full). 
total deceased _a([],0):- !. 
total deceased _a(CA:L],Deceased A):- 
total _deceased_a(L,Subtotal), 
Deceased A is Subtotal + A. 


get_cr_Iin_clos_n(I;,cr_1in_clos;scr_in_clos_n, 
(Cir _ ln eles _N/i,Ol)s= 
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Tipdallter Imselastdatat_,cr_Imvelos, _; 
L),; 

fength(L,Cr_In_clos_N),ge( full). 
get_cr_in_clos_a(I;,cr_1ln_clos,cr_I1n_clos_a;s 
eigen inmelias iA Zale. Onl): — 


=e | 3 ’ 3 3 J) 9 


findall(Amount,data(_scr_In_clos,_5_5_5_;_;Amount;_;_)- 
»A)s 

rotalverolmn clos _atAstr In elos_ A)sgeifulld. 

ees Er_lin_elos EC tag@isg= 1. 


total_cr_In_clos_a(CAilj);,Cr_1ln_clos_A):- 
total_cr_In_clos_at(L;,Subtotal), 
Cr_ln_clos_A is Subtotal + A. 


get_redmd_ repo _n(I,redmd_repo,redmd_repo_n; 
CRedmd_repo_N/1.0]):- 
findall(redmd_repo,data(_,redmd_repos_;_53_53_3_3_3_3_)3- 
Lys 
length(L,Redmd_repo_N),gc(full). 
get_redmd_repo_a(I,redmd_repo,redmd_repo_as; 
CRedmd_repo_A/1.0]):- 
findall(Amount,datal(_,;redmd_repo, _5_»5_3_;_;Amount,_ 5_)- 
2A), 
total _redmd_repo_at(A,Redmd_repo_A);gcl(full). 
total redmd_repo_a([],0):- !. 
total_redmd_repo_a(CAiLJ,Redmd_repo_A):- 

total redmd_repo_at(L,Subtotal), 

Redmd_repo_A is Subtotal + A. 


get_cur_was_col_ntI,cur_was_col,cur_was_col_n,; 
feiweawaseecal iN 1. Oa) :— 
findall(cur_was_col;,data(_scur_was_cols,_5_s_s_3s_3_3_9_7— 
Y»L)>, 

length(L,Cur_was_col_N),ge(full). 
get_cur_was_col_at(I,cur_was_col,cur_was_col_a; 
FetimEWwasmeal As 1204) ) s- 


findall(Amount,datal( _,cur_was_col;_5_»_;_;s_sAmount;_;_-— 
»sA)>, 

total cur_was_col_a(A;,Cur_was_col_A),gce(full). 
Potalmcig Was col a(lisO)}r— |. 


total cur_was_col_a(CAiLJ,Cur_was_col_A):- 
total _cur_was_col_a(L;,Subtotal), 
Cur_was_col_A is Subtotal + A. 


Betecn lnognst nt ls,erlidn_rnst>,er_In_rnst_ ns 
Eee nmm@inS tay Ons — 


cs 


findall Cem  Valnasiti dat aC sci linia S:-Crommes ys melons spss mens 
L)s 
length(L,Cr_Iln_rnst_N),qgc(full). 
get_cr_in_rnst_a(I,cr_in_rnst;,cr_Iln_rnst_a; 
(Gir  linirinei_4/ tl o@ii) ge 
findall (Amount,data(_,cr_In_rnst,s,_5_3_53_3_sAmount, _;_)- 
9Ads 
total _cr_in_rnst_a(A;sCr_1ln_rnst_A),gcel(full). 
total er invest fa Gna, OD a 
total_cr_in_rnst_a(CAilLj),Cr_in_rnst_A):- 

total _cr_Iln_rnst_a(L,Subtotal), 

Cr_in_rnst_A is Subtotal + A. 


get_cur_was_for_n(I1;,cur_was_for,cur_was_for_ns; 
CCur_was_for_N/1.0]):- 
findall(cur_was_for,data(_s,cur_was_fors_s_5_s_3s_3s_3s_3_-— 
Yel); 
length(Ll,Cur_was_for_N),gc(full). 
get_cur_was_for_a(I,cur_was_for,cur_was_for_as; 
CCur_was_for_A@/1.0]):- 
Ffindall (Amount,data(_;cur_was_ fors_;_5s_;s_s_s,sAmount;_»s_— 
5A; 
total _cur_was_for_a(A,Cur_was_for_A),qgce(full). 
total _cur_was_for_a((],0):- !. 
total _cur_was_for_a(CAiljJ,Cur_was_for_A):- 

total _cur_was_for_a(L,Subtotal), 

Cur_was_for_A 1s Subtotal + A. 


get_pd_not_aa_n(I,pd_not_aa,pd_not_aa_n, 
C[Pd_not_aa_N/1.0]):- 


Ffindall(pd_not_aa,data(_,;pd_not_aa;_5_5_53_53_3_3_3_)sk)5 


length(L,Pd_not_aa_N),gc(full). 
get_pd_not_aa_a(I,pd_not_aaspd not_aa_a, 
[Pd not_aa_A/1.0]1):- 


findall (Amount ,data(_,pd_not_aas_5_5_s_3_sAmount;_5_)5- 
A); 

total _pd_ not_aa_a(A;sPd_not_aa_A)sqce(full?). 

total _ pd_not_aa_a((],0):- |}. 


total_pd_not_aa_a(CAiL1,Pd_not_aa_A):- 
total_pd_not_aa_a(L,Subtotal), 
Pd not_aa_A is Subtotal + A. 


oe te hiey? teed iin in i genie? ies Lining aw ex lini_inic 
Cente _ ex tin N/ i oO) a 
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focal Ccaty_ tx Insdatatl,city_tx_1ns_4_5_+_s_s_ we 
is 
Fema emulate ity tx in N)aoge (tal 1). 
Getscity tx_In_atl,city_tx_In,city_tx_ln_a; 
CCity_tx_1ln_A/1.0]1) :- 
mimes itnmountsdatat ,city_tx_1lnm:_5_»_:;_5_sAmount, ,_)- 
sA)s 
coral city _tx_In_atA,€ity_tx_In_A)dsge(full). 
eotal city _tx_In_4a(0C1,0):s- !. 
total _city_tx_Iln_a(CAiL1,City_tx_1n_A):- 
sasall Suey _ wee lin adh, Suisee wall )c 
City_tx_In_A is Subtotal + A. 


get _city_tx_rel_n(I,city_tx_rel,city_tx_rel_n; 
CCity_tx_rel_N/1.0]):- 


Pigalle loye tx rel,datat( ,city tx rels_s_s.s_3_s_9_1_= 
YsL), 


length(Ll,City_tx_rel_N),gc(full). 
get _city_tx_rel_a(I,city_tx_rel,city_tx_rel_a, 
EIS Te _ sess rel Gi il aon) ya 


findall (Amount ,data(_scity_tx_rels,_;s_5_5_;s_sAmount;_;_- 
),A); 

eotal city_tx_rel_at(AsCity_tx_rel_A),sge(full). 
wotalwecuty tx gel acli,;0)s— U. 


total _city_tx_rel_a(CA:iL],City_tx_rel_A):- 
total city_tx_rel_a(L,Subtotal), 
City_tx_rel_A is Subtotal + A. 


get_consel_ser_n(I,consel_ser;,consel_ser_ns 
CConsel_ser_N/1.0]):- 
findall(consel_ser;data(_s,consel_sS@rs_5s_s_3_s_3s_s_s_)37- 
L);s 

length(L,Consel _ser_N),gcl(full). 
get_consel_ser_a(I,consel_ser,consel_ser_a; 
CConsel_ser_A/1.0]):- 


findall (Amount,data(_,consel_ser;,_;_3s_s_»_sAmount;,_;_)- 
»A)s 

total_consel_ser_a(A,Consel_ser_A),gc(full). 

total _consel_ser_a(f€J],0):- !. 


total _consel_ser_a(CA:LJ],Consel_ser_A):- 
total_consel_ser_a(L,Subtotal), 
Consel _ser_A is Subtotal + A. 


get_co_tax_In_n(I;,co_tax_In;sco_tax_Iln_n; 
ECe _ we _ Min IN Wl o@ a eS 


a7 


findall (co_tax Impidattat® Gon Gaxm Mimic syns ys sew) 
length(L,Co_tax_1ln_N),gc(full). 
get_co_tax_In_a(I;,co_tax_In,co_tax_In_a; 
eee) wei Nin Ai ib o@d) eH 
findall (Amount,datal(_,co_tax_1lnN>5_3_s_3s_s_sAmount,;_3_)9- 
Ad, 
total_co_tax_Iln_a(A,Co_tax_1ln_A);,gce(full). 
(eel ll fete) _ el Min EG oOYa— Ue 
total _co_tax_In_a(CAiL1],Co_tax_ln_A):- 
total _co_tax_In_a(L,Subtotal), 
Co_tax_Iln_A is Subtotal + A. 


get_co_tax_rel_n(I,co_tax_rel,co_tax_rel_n; 

C[Co_tax_rel_N/1.0]):- 

findall(co_tax_rel,data(_,co_tax_rels_s_s_s_3s_s_s_s_)3s7— 

Eas 

length(L;Co_tax_rel_N);qce(full). 

get_co_tax_rel_a(I,co_tax_rel,co_tax_rel_as, 

CCo_tax_rel_A/1.0]):- 

findall(Amount,data(_,co_tax_rel,_s5_; 

2A), 

total _co_tax_rel_a(A,Co_tax_rel_A)ds,gqcel(full). 

tetal ca _tax_rel at li,Oj)2-> i 

total _co_tax_rel_a(CA;:Lj,Co_tax_rel_A):- 
total _co_tax_rel_a(L,Subtotal), 
Co_tax_rel_A is Subtotal + A. 


s_s_sAMOUNt, »_)- 


get_pb_cut_off_val(I, cut_off, 
pb_cut_off_val; CRBsCUT_OFELVAL/ lees: — 
PB_CUT_OFF_VAL is 400,qgc(full). 


get_extremely_high_cut_off_val(I, cut_off, 
extremely_high_cut_off_val;, 
PE WiRMSWSlLy/ Inulei) CuI _ OIF VaAL/ lo@i)) a= 

EXTREMELY _HIGH_CUT_OFF_VAL is 200,qgc(full). 


get_very_high_cut_off_val(I, cut_off, 
very_high_cut_off_val, 
LVERY_HIGH_EUT _ GRRE OVAE7 P2019. 

VERY _HIGH_CUT_OFF_VAL is 170,qgc(full). 


get_high_cut_off_val(I, cut_off,s high_cut_off_val, 
Krein) (UT Ole Yai .@) ga 
nue! (Uy Ol VAIL 2S leeoee trully. 


get _moderately_high_cut_off_val(I, cut_off, 


78 


moderately_high_cut_off_val;, 
Teper erelyY HiGH CUTOFF VAL/1.01) :— 
MEDERATECY HIGHBEUT _ OFPFSVAL is 100,qc (full). 


get_low_cut_off_vali(I, 
cut_off;,low_cut_off_val,CLOW_CUT_OFF_vV@AL/1.01]):- 
LOW_CUT_OFF_VAL is 80,gc(full). 


get_very_low_cut_off_val(I, 
cut_off,very_low_cut_off_val;, 
EVERY EOW CUT_OFF_VAL/1.01]):~ 

VERY SEOW CUT _ GFF_VAL is 10,gc( full). 


get_extremely_low_cut_off_val(I, cut_off;, 
extremely_low_cut_off_val; 
CEXTREMEEY LOW _CUT_OFF_VAL/1.0]):- 
EXTREMELY_LOW_CUT_OFF_VAL is 40,gc(full). 


foe (RIO MWS SIRI (RIB SETSIS))) */ 


/* This section of code contains Synonyms and 90 if- 
then rules */ 


reporti(concluded of conclusion) = $The person is :$. 

order (concluded of conclusion) = Er;qj. 

precalc(personal) = Cssn,zip;m_status]. 

set(customer_profile_info of perserec) = 
customer_profile_info. 


set(superpayer_info of perserec) = superpayer_info. 
set(bankrupt_info of perserec) = bankrupt_info. 
set(weight_pt_info of perserec) = weight_pt_info. 
set(cut_off_info of perserec) = cut_off_info. 
name(weight_pt_infa of perserec) = ignore. 
name(cut_off_info of perserec) = ignore. 


question(pb_cut_off_val of cut_off) = 
get_pb_cut_off_val. 
questionlextremely_high_cut_off_val of cut_off) = 
get_extremely_high_cut_off_val. 
question(very_high_cut_off_val of cut_off) = 
get_very_high_cut_off_val. 
question(high_cut_off_val of cut_off) = 
get_high_cut_off_val. 
question(moderately_high_cut_off_val of cut_off) = 
get_moderately_high_cut_off_val. 


Vz 


question(low_cut_off_val of cut_off) = 
get_low_cut_off_val. 

question(very_low_cut_off_val of cut_off) = 
get_very_low_cut_off_val. 

question(extremely_low_cut_off_val of cut_off) = 
get_extremely_low_cut_off_val. 


set(conclusion_info of perserec) = conclusion_info. 
set(personal_info of customer_profile_info of 
perserec)= 
mersonal_infoc. 
set(trw_info of customer_profile_info of perserec) = 
trw_info. 
seti(delinq_info of trw_info of customer_profile_info of 
perserec) = deling_info. 
set(d_60_info of delingq_info of trw_info of 
customer_profile_info of perserec) = d_60_info. 
set(d 70_info of deling_info of trw_info of 
customer _profile_info of perserec) = d_90_info. 
set(d_120_info of deling_info of trw_info of 
customer_profile_info of perserec) = d_120_info. 
set(d_150_info of deling_info of trw_info of 


customer _profile info of perserec) = d_150_info. 
set(d_180_info of deling_info of trw_info of 

customer _profile_info of perserec) = d_180_info. 
set(cur_was_info of trw_info of customer_profile_info 

of 

perserec) = cur_was_info. 
set(c_w_60_info of Cur_was_info of trw_info of 

customer _profile_info of perserec) = c_w_60_info. 
set(c_w_90_info of cur_was_info of trw_info of 

customer _profile_info of perserec) = c_w_90_info. 
set(c_w_1l12e0_info of cur_was_info of trw_info of 

customer_profile_info of perserec) = c_w_120_info. 
set(c_w_150_info of cur_was_info of trw_info of 

customer_profile_info of perserec) = c_w_150_info. 
set(c_w_180_info of cur_was_info of trw_info of 

customer_profile_info of perserec) = c_w_180_info. 
set(pdbydir_info of trw_info of 

customer_profile_info of perserec) = pdbydlr_info. 
set(coll_acct_info of trw_info of customer_profile_info 

of 

perserec)= coll_acct_info. 


set(charge_off_info of trw_info of 
customer_profile_info of 
perserec)=charge_off_info. 
set(pd_coll_ac_info of trw_info of 
customer_profile_info of 
perserec) = pd_coll_ac_info. 


BO 


set(inquiry_info of trw_info of customer_profile_info 


of 
perserec) = inquiry_info. 
set(conclusion_info of perserec) = conclusion_info. 


set(foreclosure_info of trw_info of 
customer _profile_info of 


merserec) = foreclosure_info. 
set(judgment_info of trw_info of customer_profile_info 
of 
perserec) = judgqment_info. 
set(repo_info of trw_info of customer_profile_info of 
perserec) = repo_info. 


set(insclaim_info of trw_info of 
customer _profile_info of perserec) = 
insclaim_info. 


name(insclaim_info of trw) = ignore. 
Guestion(insclaim_n of insclaim) = get_insclaim_n. 
questiaon(insclaim_a of insclaim) = get_insclaim_a. 


set (notpdaa_info of trw_info of 

customer_profile_info of perserec) = notpdaa_info. 
name(notpdaa_info of trw) = ignore. 
question(notpdaa_n of notpdaa) = get_notpdaa_n. 
guestion(notpdaa_a of notpdaa) = get_notpdaa_a. 


set(volnrepo_info of trw_info of 
customer profile_info of perserec) = 
volnrepo_info. 


name(volnrepo_info of trw) = ignore. 
question(volnrepo_n of volnrepo) = get_volnrepo_n. 
question(volnrepo_a of volnrepo) = get_volnrepo_a. 


set(curwaspd_info of trw_info of customer_profile_info 


of 
perserec) = Curwaspd_info. 
set(cwpd_info of curwaspd_info of trw_info of 
customer_profile_info of perserec) = cwpd_info. 
set(cwpd_ 30_info of curwaspd_info of trw_info of 
customer _profile_info of perserec) = cwpd_30_info. 


set(cwpd_ 30bye_info of curwaspd_info of trw_info of 
fustomer_profile_info of perserec) = 

Ccwpd 30bye_info. 

set(cwpd_ 30by3_info of curwaspd_info of trw_info of 
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customer_profile_info of perserec) = 

cwpd 30by3_info. 

set(cwpd_30by4_info of curwaspd_info of trw_info of 
customer _profile_info of perserec) = 

cwod_ 30by4_info. 

set(cwpd_ 30byS_info of curwaspd_info of trw_info of 


customer _profile_info of perserec) = cwpd_30by5_infoa. 
set(cwpd 30by6é_info of curwaspd_info of trw_info of 
customer _profile_info of perserec) = cwpd_30by6_info. 


set(accpd_info of trw_info of custaomer_profile_info of 

perserec) = accpd_info. 

set(accpd_30_info of accpd_info of trw_info of 
customer _profile_info of perserec) = 

accpd_30_info. 


set(accpd 30by2_info af accpd_info of trw_info of 
customer_profile_info of perserec) = accpd_30bye_info. 
set(accpd 30by3_info of accpd_ info of trw_info of 
customer _profile_info of perserec) = accpd_ 30by3_infoa. 
set(accpd 30by4_info of accpd_info of trw_info of 
customer profile_info of perserec) = accpd 30by4_info. 
set(accpd 30byS_info af accpd_info of trw_info of 


customer _profile_info of perserec) = accpd 30by5_info. 
set(accpd 30by4_info of accpd_info of trw_info of 
customer_profile_info of perserec) = accpd 30by6_info. 
set(pacc_wpd_info of trw_info af customer_profile info 
of 
perserec) = pacc_wpd_ info. 
set(pacc_wpd_30_info of pacc_wpd_info of trw_info of 
customer_profile_info of perserec) = pacc_wpd_30_info. 
set(pacc_wpd_ 30bye3_info af pacc_wpd_info of trw_info 
of 


customer_profile_info of perserec) = 

Ppacc _wpd_ 30bye3_info. 

set(pacc_wpd_ 30by4_info of pacc_wpd_info of trw_info of 
customer_profile info of perserec) = 

pacc_wpd_30by4%_info. 

set(pacc _wpd 30by5_info of pacc_wpd_info of trw_info of 
customer_profile_info of perserec) = 

Pacc wpd_ 30byS_info. 

set(pacc_wpd 30by6_info of pacc wpd_info of trw_info of 
customer _profile_info of perserec) = 

Pacc _wpd 30byé_info. 


set(suit_info of trw_info of 


customer_profile_info of perserec) = Suit_info. 
name(suit_info of trw) = ignore. 
question(suit_n of Suit) = get _suitun. 


Be 


Q@e@ecst¥en(suit_a of suit) = get _suit_a. 


name(customer_profile_info of perserec) = ignore. 
Name(superpayer_info of perserec) = ignore. 
name(bankrupt_info of perserec) = ignore. 
name(conclusion_info of perserec) = ignore. 
name(personal_info of customer_profile) = ignore. 
name(trw_info of customer_profile) = ignore. 
name(Cinquiry_info of trw) = ignore. 
name(delingq_info of trw) = ignore. 


name(d_60_info of deling) = ignore. 
name(d_ 90_info af delinqg) = ignore. 
name(d_12O0_info of deling) ignore. 
name(d_150_info of deling) = ignore. 
name(d_ 180_info of deling) ignore. 


name(cur_was_info af trw) = ignore. 
name(c_w_60_info of Cur_was) = ignore. 
name(c_w_?0_info of cur_was) = ignore. 
name(c_w_120_info of cur_was) ignore. 
name(c_w_150_info of cur_was) = ignore. 
name(c_w_180_info of cur_was) = ignore. 


name(coll_acct_info of trw) = ignore. 
name(charge_aff_info of trw) = ignore. 
name(pd_coll_ac_info of trw) = ignore. 
name(foreclosure_info of trw) = ignore. 
name( judgment_info of trw) = ignore. 
namet(repo_info of trw) = ignore. 
name(pdbydlr_info of trw) = ignore. 
name(curwaspd info of trw) = ignore. 
name(cwod_info af cCurwaspd) = ignore. 
name(cwod_ 30_info of cCurwaspd) = ignore. 


name(cwpd 30by2e_info of curwaspd) = ignore. 
name(cwpd 3O0by3_info of cCurwaspd) ignore. 
name(cwpd_ 30by4_info of curwaspd) 1gnore. 
name(cwed 30by5_info of curwaspd) ignore. 
name(cwpd 30by6_info of cCurwaspd) ignore. 


question(cwod_n of cwpd) = get_cwpd_n. 
question(cwpd_a of cwpd) = get_cwpd_ia. 
question(cwpd_30_n of cwpd_30) = get_cwpd_30_n. 
question(cwod_30_a of cwpd_30) = get_cwpd_30_a. 
question(cwpad_ 30bye_n of cwpd_30bye2) = 
get_cwpd 30bye_n. 
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question(cwpd_30by2_a of cwpd_ 30by2) 
get_cwpd_ 30bye_a. 
questian(cwpd_ 30by3_n of cwpd_30by3) 
get_cwpd_30by3_n. 
question(cwpd 30by3_a of cwpd_30by3) 
get_cwpd_30by3_a. 
question(cwpd 30by4_n of cwpd_30by4) 
get_cwpd_ 30by4_n. 
question(cwpd 30by4_a of cwpd_30by4) 
get _cwpd_ 30by4_a. 
question(cwpd_30by5_n of cwpd_30by5) 
get_cwpd_ 30by5_n. 
question(cwpd 30byS5_a of cwpd_30by5) 
get_cwpd_30by5_a. 
question(cwead 30by6_n of cwpd_ 30by64) 
get_cwpd_30by6_n. 
question(cwpd 30by6_a of cwpd 30by4) 
get_cwpd 30by6_a. 


question(ssn of personal) = get_ssn. 


question(m_status of personal) = get_ 


question(zip of personal) = get_zip. 
questian(coll_acct_n of coll_acct) = 
question(coll_acct_a of coll_acct) = 


question(c_w_60_n of c_w_60) = get_c_ 
question(c_w_60_a of cC_w_60) = get_c_ 
question(c_w_90_n of C_w_90) = get_c_ 
question(c_w_90_a of c_w_90) = get_c_ 
question(c_w_120_n of c_w_1e20) = get_ 
question(c_w_120_a of C_w_120) = get_ 
question(c_w_150_n of c_w_150) = get_ 
question(c_w_150_a of c_w_150) = get_ 
question(c_w_180_n of c_w_180) = get_ 
question(c_w_180_a of c_w_180) = get_ 


questian(d_ 60_n of d_6&0) 
question(d 60 a of d_ 40) 
question(d 90_n af d_90) 


m_status. 


get_coll_acct_n. 
get_coll_acct_a. 


w_60_n. 
w_60_a. 
w_90_n. 
w_90_a. 
|e 1 et inc 
c_w_120_a. 
EG _ty_ Ww SO)_ Alc 
c_w_150_a. 
c_w_180_n. 
c_w_180_a4. 


get_d_ 60 _n. 
get_d_40_a. 
get_d_90_n. 


question(d_ 90_a of d_90) = get_d_90_a. 


question(d_ 120_n of d_120) 
question(d_ 120_a of d_120) 
question(d_ 150_n of d_150) 
question(d 150_a of d_150) 
question(d_ 180_n of d_180) 
question(d_180_a of d_180) 


nameCaccpd_info of trw) = ignore. 
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Ge cmcmele Omni 
get_d_ 120 a. 
Ge Gacime lOmin 
get_d_150_a. 
get_d_180_n. 
get_d_180_a. 


name(accpd_ 30_info of accpd) = ignore. 
nameCaccpd 30bye_info of accpd) = ignore. 


name(accpd 30by3_info of accpd) = ignore. 
nameCaccpd 30by4_info of accpd) = ignore. 
name(accpd_ 30byS_info of accpd) = ignore. 
nameCaccpd 30by6_info of accpd) = ignore. 


question(accpd_30_n of accpd_30) get_accpd_30_n. 
question(accpd 30_a of accpd_30) = get_accpd_30_a. 
question(accpd 30by2@_n of accpd_ 30bye) = 
get_accpd_30bye_n. 

question(accpd 30bye_a of accpd_30bye) 
get_accpd JObye a. 

question(accpd 30by3_n of accpd_ 30by3) = 
get_accpd_30by3_n. 

question(accpd 30by3_a of accpd_30by3) = 
get_accpd 30by3_a.. 

question(accpd 30by4_n of accpd_ 30by4) = 
get_accpd 30by4_n. 

question(accpd 30by4_a of accpd_ 30by4) = 
get_accpd 30by4_a. 

question(accpd 30by5_n of accpd_ 30by5) = 
get_accpd 30by5_n. 

question(accpd 30byS_a of accpd_30by5) = 
get_accpd 30by5_a. 

question(accpd 30byé6_n of accpd_30byS&) = 
get_accpd_ 30byé6é_n. 

question(accpd 30byé_a of accpd_30by4) = 
get_accpd_30by46_a. 


name(pacc_wpd_info of trw) = ignore. 
name(pacc_wpd 30_info of pacc_wpd) = ignore. 
name(pacc_wpd_ 30bye3_info of pacc_wpd) = ignore. 
name(pacc_wpd 30by4_info of pacc_wpd) = ignore. 
name(pacc_wpd_30byS_info of pacc_wpd) = ignore. 
name(pacc_wpd 30by4_info of pacc_wpd) = ignore. 


question(pacc_wpd_30_n of pacc_wpd_30) 
get_pacc_wpd_30_n. 
gquestion(pacc_wpd_30_a of pacc_wpd_30) 
get_pacc_wpd_30_a. 


question(pacc_wpd_30by23_n of pacc_wpd_30bye3) 
get_pacc_wpd_30bye3_n. 
question(pacc_wpd_30bye3_a of pacc_wpd_30bye3) 
get_pacc_wpd_30bye3_a. 
question(pacc_wpd_30by4_n of pacc_wpd_30by%) 
get_pacc_wpd_30by4_n. 
question(pacc_wpd_30by4_a of pacc_wpd_3O0by4) 
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get_pacc_wpd 30by4_a. 
guestion(pacc_wpd_30by5_n of pacc_wpd_30by5) = 
get_pacc_wpd_30by5S_n. 
guestion(pacc_wpd_30byS_a of pacc_wpd_30by5) = 
get_pacc_wpd_ 30by5_a. 
question(pacc_wpd 30Oby6_n of pacc_wpd_ 30byé4é) = 
get_pacc_wpd_30by6_n. 
question(pacc_wpd 30by46_a of pacc _wpd_ 30by6) = 
get_pacc_wpd_30by46_a. 


question(bk_vals of trw) = get_bk_vals. 

Question(foreclosure_weight_val of foreclosure) = 

get_fclos_vals. 

question( judgment_weight_val of judgment) = 
get_judgment_vals. 

question(repo_weight_val of repo) = get_repo_vals. 


guestion(charge_off_n of charge_off) = 
get_charge_off_n. 
gquestion(charge_off_a of charge_off) = 
get_charge_off_a. 


guestion(pd_coll_ac_n of pd_coll_ac) = 
get_pd_coll_ac un. 
question(pd_coll_ac_a of pd_coll_ac) = 
get_pd_coll_ac_a. 


question(no_of_ing of inquiry) = check_recent_inq. 
guestion(curr_acct_n of sSuperpayer) = get_curr_acct_n. 


guestion(pdbydlr_n of pdbydilr) = get_pdbydlir_n. 
guestion(pdbydlr_a of pdbydir) = get_pdbydlr_a.s. 


set(pacc_wdel_info of trw_info of customer_profile_info 
of 
perserec) = pacc_wdel_info. 


set(pacc_wdel60_info of pacc_wdel_info of trw_info of 
customer_profile_info of perserec) = 
Ppacc_wdel60_info. 
set(pacc_wdel9?0_info of pacc_wdel_info of trw_info of 
customer _profile_info of perserec) = 
pacc_wdel90_info. 
set(pacc wdel1ie2O_ info of pacc wdel_info of trw_info of 


customer _profile_info of perserec) = pacc_wdelie2O_info. 
set(pacc_wdeliS0O_info of pacc_wdel_info of trw_info of 
customer_profile_info of perserec) = pacc_wdeliSO_info. 


set(pacc_wdel180_info of pacc_wdel_info of trw_info of 
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customer _profile_info of perserec) = pacc_wdel1l80_info. 


name(pacc_wdel_info of trw) = ignore. 

name(pacc_wdelé60_info of pacc_wdel) = ignore. 
name(pacc_wdel90_info of pacc_wdel) = ignore. 
name(pacc_wdell2O_info of pacc_wdel) = ignore. 


name(pacc_wdellSO_info of pacc_wdel) = iqnore. 
name(pacc_wdellB0_info of pacc_wdel) = ignore. 


question(pacc_wdelS0_n of pacc_wdelé0O) 
get_pacc_wdel6é0O_n. 
question(pacc_wdelS0_a of pacc_wdelé0O) 
get _pacc_wdeldS0_a. 
question(pacc_wdel90_n of pacc_wdel90) 
get_pacc _wdel90_n. 
question(pacc_wdel90_a of pacc_wdel90) 
get_pacc_wdel90_a. 
question(pacc _wdell20O_n of pacc_wdelie2o) 
get_pacc _wdelleo_n. 
question(pacc _wdelle0_a of pacc_wdelleo) 
get_pacc_wdelie2o_a. 
question(pacc_wdell50_n of pacc_wdel150) 
get_pacc_wdel150_n. 
question(pacc_wdel150_a of pacc_wdel150) 
get_pacc _wdel150_a. 
question(pacc_wdel180_n of pacc_wdel180) 
get_pacc_wdel180_n. 
question(pacc_wdel180_a of pacc_wdel180) 
get_pacc_wdeli80_a. 
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set(pd_repo_info of trw_info of customer_profile_info 
ot 


perserec) = pd_repo_info. 

name(pd_repo_info of trw) = ignore. 
question(pd_repo_n of pd_repo) = get_pd_repo_n. 
Question(pd repo_a of pd_repoa) = get_pd_repo_a. 


set(pd_chg_off_info af trw_info of 
customer profile_info of 

perserec) = pd_chg_off_info. 
name(pd_chgq_off_info of trw) = ignore. 
atestrentpa ehg_off_n of pd_chg.off) = 
get_pd_chg_off_n. 

questuontpad chq_otf_a of paG_eEhg_ott) 
get_pd_chg_off_a. 


ul 


setved foreclo_info of trw_into of 
customer _profile_info af 
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perserec) = pd _foreclo_info. 
name(pd_foreclo_info of trw) = ignore. 
Question(pd foreclo_n of pd_forecloa) = 
get_pd_foreclo_n. 

question(pd foreclo_a of pd_toreclo) 
get_pd foreclo_a.s. 


set(bkliqreo_info of trw_info of customer_profile_info 
ot 


perserec) = Bkligqreo_info. 

name(bkligreo_info of trw) = ignore. 
question(bkligqreo_n of Bkliqreo) = get_Bbkliqreo_n. 
question(bkliqreo_a of bkligqreo) = get_bkliqreo_ia. 


set(settled_info of trw_info of customer _profile_info 
of 


perserec) = settled_info. 

name(settled_info of trw) = ignore. 
question(settled_ n of settled) = get_settledin. 
question(settled_a of settled) = get_settled_a. 


set(bk_adj_pln_info of trw_info of 
customer _profile_info of 

perserec) = Bk_adj_pln_info. 
name(bk_adj_pln_info of trw) = ignore. 
question(Bk_adj_pln_n of B8k_adj_pln) = 
get_bk_adj_pln_n. 
question(bk_adj_ pln_a of bk_adj_ pln) = 
get_bk_adj_pln_ia. 


set(scnl_nwloc_info of trw_info of 
customer profile_info of 

perserec) = scnl_nwloc_info. 
name(scnl_nwloc_info of trw) = ignore. 
question(scnl_nwloc_n of scnl_nwioc) = 
get_scnl_nwloc_n. 

question(scnl _nwloc_a of scnl_nwilioc) = 
get_scnl_nwloc_ias. 


set(co_now_pay_info of trw_info of 
customer _ profile info of 

perserec) = co_now_pay_info. 

name(co now_pay_info of trw) = ignore. 
question(co_ now_pay_n of co_now pay) = 
get_co_now_pay_n. 
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Question(co_now_pay_a of co_now_pay) = 
qget_coO_now_pay_a. 


set(fore_proc_info of trw_info of customer_profile_info 
of 


PSrSeree) > YeireS _ Pires _ilinre. 

name(tore_ proc_info of trw) = ignore. 
question(fore_proc_n of fore _proc) = get_fore_proc_n. 
question(fore_proc_a of fore_proc) = get_fore_proc_a.s. 


set(gov_claim_info of trw_info of customer_profile_info 
ot 


perserec) = gov_claim_infa. 

name (gov_cClaim_info of trw) = ignore. 
question(gov_claim_n of gov_claim) = get_gov_claim_n. 
question(gov_claim_a of gov_claim) = get_gov_claim_a. 


set(close_np_aa_info of trw_info of 
customer_profile_info of 

perserec) = close_np_aa_info. 
name(close np_aa_info of trw) = ignore. 
questiaon(close_np_aa_n of close_np_aa) 
get_close_np_aa_n. 

question(close np_aa_a af close_np_aa) 
get_close_np_aa_a. 


SeGcsem! into, of trw_info of Gustomer_profile_ info of 
perserec) = scnl_infoa. 


name(scnl_info of trw) = ignore. 
question(scnl_n of scnl) = get_scnl_n. 
questian(scenl_a of scnl) = get_scnl_a. 


seti(fed _tax_ln_info af trw_into of 
customer_profile_info of 

perserec) = fed_tax_In_info. 
mame(ted_tax_In_info of trw) = ignore. 
question(fed_tax_Iln_n of fed_tax_In) = 
get_fed_tax_ln_n. 
gQuestion(fed_tax_In_a of fed_tax_ln) 
get_fed_tax_ln_a. 


set(fed tax_rel_info af trw_into of 
customer profile_info of 
perserec) = fed_tax_rel_info. 
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name(fed_tax_rel_info of trw) = ignore. 
question(fed_tax_rel_n of fed_tax_rel) = 
get _fed tax_relin. 
question(fed_tax_rel_a of fed_tax_rel) = 
get_fed_tax_rel_a. 

set(judgmt_sat_info of trw_info of 
customer_profile_info of 

perserec) = judgmt_sat_info. 

name( judgmt_sat_info of trw) = ignore. 
question( judgmt_sat_n of judgmt_sat) = 
get _judgmt_sat_n. 

auestion( judgmt_sat_a of judgmt_sat) = 
get_judgmt_sat_a. 


set( judg _vacat_info of trw_info of 
customer _profile_info of 

perserec) = judg_vacat_info. 

name( judg_vacat_info of trw) = ignore. 
question( judg_vacat_n of judg _vacat) = 
get_judg_vacat_n. 

question( judg_vacat_a of judg _vacat) = 
get _judg_vacat a. 


set(mech_lien_info of trw_info of customer_profile_info 
of 


perserec) = mech_lien_info. 

name(mech_lien_info of trw) = ignore. 
question(mech_lien_n of mech_lien) = get_mech_lien_n. 
question(mech_lien_a of mech_lien) = get_mech_lien_a. 


set(mech_rele_info of trw_info of customer_profile_info 
of 


perserec) = mech_rele_info. 

name(mech_rele_info of trw) = ignore. 
question(mech_rele_n of mech_rele) = get_mech_relein. 
question(mech_rele_a of mech_rele) = get_mech_releia. 


seti(mn_mtg_fil_info of trw_info of 
customer _profile_info of 

perserec) = mn_mtg_fil_infa. 
name(mn_mtg_fil_info of trw) = ignore. 
question(mn_mtg_fil_n af mn_mtq_fil) = 
get_mn_mtg_fil_n. 
question(mn_mtg_fil_a of mn_mtgq_fil) 
get_mn_mtg_fil_a. 
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set(nt_respon_info of trw_info of customer_profile_info 
of 


perserec) = nt_respon_infa. 

name(nt_respon_info of trw) = ignore. 
questian(nt_respon_n of nt_respon) = get_nt_respon_n. 
question(nt_respon_a of nt_respon) = get_nt_respon_a. 


set(stat_tx_ln_info of trw_info of 
customer _profile_info of 

perserec) = stat_tx_In_info. 
name(stat_tx_Iln_infa af trw) = ignore. 
questian(stat_tx_In_n of stat_tx_ln) = 
get_stat_tx_ln_n. 
question(stat_tx_ln_a of stat_tx_ln) 
get_stat_tx_ln_a. 


set(sta_tx_rel_info of trw_info of 
customer _profile_info of 

perserec) = sta_tx_rel_info. 
name(sta_tx_rel_info of trw) = ignore. 
question(sta_tx_rel_n af sta_tx_rel) = 
get_sta_tx_rel_n. 
question(sta_tx_rel_a af sta_tx_rel) = 
Get_sta_tx_rel_ia. 


set(suit_dismd_info of trw_infao of 
customer _profile_infoa of 

perserec) = suit_dismd_info. 
name(suit_dismd_info of trw) = ignore. 
question(suit_dismd_n of suit_dismd) = 
Get_suit_dismd_n. 
question(suit_dismd_a of suit_dismd) = 
get suit_dismd a. 


set(wage_asign_info of trw_info of 
customer profile info of 

perserec) = wage_asign_info. 
name(wage_asign_info of trw) = ignore. 
question(wage_asign_n of wage_asign) = 
Get_wage_asign_n. 
question(wage_asign_a of wage_asign) = 
get_wage_asign_a. 


all 


set(wa_release_info of trw_info of 
customer _profile_info of 

perserec) = wa_release_ info. 
name(wa_release_info of trw) = ignore. 
question(wa_release_n of wa_release) = 
get_wa_release_n. 
question(wa_release_a of wa_release) 
qet_wa_release a. 


set(retinanced_info of trw_info of 
customer _profile_info of 

perserec) = refinanced_info. 
name(refinanced_info of trw) = iqnore. 
question(refinanced_n of refinanced) 
get_refinanced_n. 
question(refinanced_a of refinanced) 
get_refinanced_a. 


set(cr_cd_ lost_info of trw_info of 
customer _profile_info of 

perserec) = cr_cd_lost_info. 
name(cr_cd_lost_info of trw) = ignore. 
question(cr_cd_lost_n of cr_cd_lost) 
get_cr_cd_lost_n. 
question(cr_cd_laost_a of cr_cd_lost) 
get_cr_cd_lost_a. 


set(clos_inac_info of trw_info of customer_profile_info 
of 


perserec) = clos_inac_info. 

name(clos_inac_info of trw) = ignore. 
question(clos_inac_n of clos_inac) = get_clos_inac_n. 
question(clos_inac_a of clos_inac) = get_clos_inac_a. 


set(transfered_info of trw_info of 
customer_profile_info of 

perserec) = transfered_info. 
name(transfered_ info of trw) = ignore. 
question(transfered_n of transfered) = 
get_transfered_n. 
question(transfered_a af transfered) 
get_transfered a. 


set(too new_rt_info of trw_info of 
customer _profile_info of 
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perserec) = too_new_rt_info. 
name(too_new_rt_info of trw) = ignore. 
question(too_new_rt_n of too_new_rt) = 
get_too_néw_rt_n. 
question(too_new_rt_a of too_new_rt) 
get_too_new_rt_a. 


set(paid_satis_info of trw_info of 
customer profile_info of 

perserec) = paid_satis_info. 
name(paid_satis_info of trw) = ignore. 
question(paid_satis_n of paid satis) 
get_paid_satis_n. 
question(paid_satis_a of paid_satis) 
get_Ppaid satis a. 


set(paid_acct_info of trw_info of customer_profile_info 
of 


perserec) = paid_acct_info. 

name(paid_acct_info of trw) = ignore. 
question(paid_acct_n of paid_acct) = get_paid_acct_n. 
question(paid_acct_a of paid_acct) = get_paid_acct_a. 


set(deceased_info of trw_info of customer_profile_info 
of 


perserec) = deceased _ info. 

name (deceased_info of trw) = ignore. 
question(deceased_n of deceased) = get_deceased_n. 
question(deceased_a of deceased) = get_deceased_a. 


set(cr_ln_clos_info of trw_info of 
customer_profile_info of 

perserec) = cr_In_clos_info. 
name(cr_ln_clos_info of trw) = ignore. 
question(er_In_clos_n of er_ln_elos) = 
getecm ea! nec los ni. 
qucsuuomCcpa lace lOSna Oh Cee line los) y= 
get_cr_I1n_clos_a.s. 


set(redmd_repo_info of trw_info of 
customer_profile_info of 

perserec) = redmd_repo_info. 
name(redmd_repo_info of trw) = ignore. 
question(redmd_repo_n of redmd_repo) = 
get_redmd_repo_n. 
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question(redmd_repo_a af redmd_repo) = 
qget_redmd_repo_a. 


set(cur_was_col_info of trw_info of 
customer _profile_info of 

perserec) = cur_was_col_info. 
name(cur_was_col_info of trw) = ignore. 
question(cur_was_col_n af cur_was_col) 
get_cur_was_col_on. 
question(cur_was_col_a af cur_was_col) 
qet_cur_was_col_as. 

set(cr_In_rnst_info of trw_info of 
customer _profile_info of 

perserec) = cr_In_rnst_info. 
name(cr_In_rnst_info of trw) = ignore. 
question(cr_Iln_rnst_n of cr_In_rnst) = 
efie fee _ lin) imines _talo 
gquestion(cr_In_rnst_a of cr_In_rnst) 
get _cr_ln_rnst_a. 


set(cur_was_for_info of trw_info of 
customer _profile_info of 

perserec) = cur_was_for_info. 
name(cur_was_for_info of trw) = ignore. 
question(cur_was_for_n of cur_was_for) 
get _cur_was _for_n. 
question(cur_was_for_a of cur_was_for) 
get_cur_was_for_a. 

set(pd not_aa_info af trw_info of customer_profile_info 
of 


perserec) = pd_not_aa_info. 

name(pd_not_aa_info of trw) = ignore. 

gquestion(pd_ not_aa_n of pd_not_aa) = get_pd_not_aa_n. 
guestion(pd_not_aa_a of pd _ not_aa) = get_pd not_aa as. 


set(city_tx_ln_info of trw_into af 
customer _profile_info of 

(Sir Sairae) = ericy es lin vinve- 
name(city_tx_In_info of trw) = ignore. 
question(city_tx_ln_n of city_tx_1ln) = 
isis CE kwy _ wes jin ie 

questi emnCeity xo! mn a Of Wed tye ene 
get_city_tx_ln_a. 
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aeaertystx rel _ info of trwlinte of 
customer _profile_info of 

perserec) = city_tx_rel_infoa. 
name(city_tx_rel_info of trw) = ignore. 
questiemteity tx rel_n of city_tx_rel) 
Getecrtvyetx nel mn. 
Stestvomocity tx relia of city tx rel) 
get_city_tx_rel_ia. 

set(consel_ser_info of trw_info of 
customer _profile_info of 

perserec) = consel_ser_info. 
name(consel _ser_info of trw) = ignore. 
question(consel _ser_n af cansel_ser) = 
get_consel_ser_n. 

question(consel _ser_a of consel_ser) 
get_consel_ser_a. 


set(co_tax_ln_info of trw_info of customer_profile_info 
of 


perserec) = co_tax_ln_infoa. 

name(co_tax_Iln_info of trw) = ignore. 
question(cao_tax_ln_n of ca_tax_1ln) = get_co_tax_In_n. 
question(co_tax_ln_a of co_tax_1ln) = get_co_tax_In_a. 


SenCcomtaxnGe le lmno, Of CRW im io) Of 
customer profile_info of 

perserec) = co_tax_rel_info. 
name(co_tax_rel_info of trw) = ignore. 
question(co_tax_rel_n of co_tax_rel) = 
get_co_tax_rel_n. 
question(co_tax_rel_a of co_tax_rel) 
get_co_tax_rel_a. 


synonym(concluded)= & the conclusion $. 
synonym(conclusion)= $ the current case #. 
synonym(weight_pt)=S the current case &. 
synonym(overall weignht_val)=overali calculated 
weights. 

synonym(weight_pt_info)=% current case’s total 
weignts$. 

synonym(weight_pt_val) = above weights. 
synonym(cut_off)=tthe range 0-200 that we uses. 
synonym(cut_off_info)=Sdetermined cut off valuess. 
synonym(potential_bankrupt)=$potential bankrupts. 
synonym(pb_cut_off_val)=$potential bankrupt cut off 
values. 
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synonym(very_critical _cut_off_val)=$very critical cut 
off values. 


synonym(critical cut_off_val)=$critical cut off values. 


synonym(serious_cut_off_val)=$serious cut off values. 
synonym(very_poor_cut_off_val)=$very poor cut off 
values. 

synonym(poor_cut_off_val)=$poor cut off values. 
synonym(satisfactory_cut_off_val)=tsatisfactory cut off 
values. 

synonym(normal _cut_off_val)=$normal cut off values. 


/* Synonyms for easier user recognition */ 


synonym(conclusion_info)=$current cases. 
synonym(too_many_accts)=$To0o0 many accountss. 
synonym(curr_acct_n)=$number of current accountss. 
synonym(superpayer _info)=$Superpayer$. 
synonymlalarmingly_high)=$alarmingly highs. 
synonym(extremely_low)=$extremely lows. 
synonym(extremely_low_cut_off_val)=$the extremely low 
cut off values. 
synonym(very_low)=$very lows. 
synonym(very_low_cut_off_val)=%$very low cut off values. 
synonym(low_cut_off_val)=$low cut off value®s. 
synonym(very_poor)=$very poors. 
synonym(moderately high_cut_off_val)=$moderately high 
cut off values. 
synonym(high_cut_off_val)=#high cut off values. 
synonym(very_high_cut_off_val)=%very high cut off 
values. 
synonym(very_critical)=$very criticals. 
synonym(extremely_high)=¢extremely highs. 
synonymlextremely_high_cut_off_val)=$extremely high cut 
off values. 
synonym(public_ record val)=$public record vals. 
synonym(private_ record val)=$private record values. 
synonym(weighted _decision)=$weighted decisions. 
synonym(set_of _bkrpts_and_1liens_weight_val)=the 
calculated weights for all bankruptcies and liens$. 
synonym(set_of_misc_public_items_weight_val)=$the 
calculated weights for all miscellaneous public 
items$. ; 
synonym(set_of _current_and_ paid _accts_weight_val)=$the 
calculated weights for all current and paid 
accounts$. 
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synonym(set_oaf_delinqg_accts_weight_val)=$the calculated 
weights for all delinquent accounts$. 

synonym(set_of_misc_ private_items_weight_val)=sthe 
calculated weights for all miscellaneous private 
itemss. 

synonym(Ddk_adj_pln_weight_val)=S$the calculated weight 
for debt included or discharged through bankruptcy 
chapter 138. 

synonym(bk_adj_pln_info)=¢the current cases. 

synonym(bkliqreo_weight_val)=$the calculated weight for 
debt included or discharged through bankruptcy 
chapter 7 or 11%. 

synonym(bkliqreo_info)=s$the current cases. 

synonym(bk_vals)=$the calculated weight for bankruptcy 
filed, dismissed or completed in chapters 7, 11 or 
VSI. 

synonym(trw_info)=S$the current cases. 

synonym(mech_lien_weight_val)=$the calculated weight 
for mechanics liens. 

synonym(mech_lien_info)=$the current cases. 

synonym(mech_rele weight_val)=%the calculated weight 
for mechanics lien released#$. 

synonym(mech_rele_info)=the current cases. 

synonym(fed_tax_ln_weight_val)=$the calculated weight 
for federal tax liens. 

synonym(fed_tax_In_info)=Sthe current case. 

synonym(fed_tax_rel_weight_val)=%the calculated weight 
for federal tax lien releases. 

synonym(fed_tax_rel_infa)=$the current cases. 

synonym(stat_tx_Iln_weight_val)=$the calculated weight 
for state tax liens. 

synonym(stat_tx_Iln_info)=$the current cases. 

synonym(sta_tx_rel_weight_val)=%the calculated weight 
for state tax lien releases. 

synonym(sta_tx_rel_info)=$the current cases. 

synonym(city_tx_In_weight_val)=$the calculated weight 
for city tax liens. 

synonym(city_tx_In_info)=S$the current cases. 

synonym(city_tx_rel_weight_val)=%the calculated weight 
for city tax lien releases. 

synonym(city_tx_rel_infa)=$the current cases. 

synonym(co_tax_In_weight_val)=%the calculated weight 
for county tax liens. 

synonym(co_tax_In_info)=$the current cases. 

synonym(co_tax_rel_weight_val)=$the calculated weight 
tor county tax lien releases. 

synonym(co_tax_rel_info)=%the current cases. 

synonym( judgmt_sat_weight_val)=$the calculated weight 
for satisfied judgements. 
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synonym( judgmt_sat_info)=Sthe current cases. 
synonym( judg_vacat_weight_val)=$the calculated weight 
for vacated judgements. 
synonym( judg_vacat_info)=$the current cases. 
synonym( judgment_weight_val)=¢the calculated weight for 
judgements. 
synonym( judgment_info)=#the current cases. 
synonym(wage_asign_weight_val)=$the calculated weight 
for wage assignments. 
synonym(wage_asign_info)=$the current cases. 
synonym(wa_release _weight_val)=$the calculated weight 
for wage assignment released$. 
synonym(wa_release info)=$the current cases. 
synonym(suit_weight_val)=$the calculated weight for 
suits. 
synonym(suit_info)=$the current cases. 
synonym(suit_dismd_weight_val)=$the calculated weight 
for suit dismisseds. 
synonym(mn_mtg_fil_weight_val)=$the calculated weight 
for filed manual mortgage reports. 
synonym(mn_mtg_fil_info)=$the current cases. 
synonym(nt_respon_weight_val)=$the calculated weight 
for not responsible notices. 
synonym(nt_respon_info)=$the current cases. 
synonym(consel _ser_weight_val)=$the calculated weight 
for debt counseling services. 
synonym(consel_ser_info)=$the current cases. 
synonym(curr_acct_n_weight_val)=%the calculated weight 
for number of current accounts$. 
synonym(superpayer_info)=$the current cases. 
synonym(cur_was_col_weight_val)=$the calculated weight 
for a current account that was a collection 
accounts. 
synonym(cur_was_col_info)=%$the current cases. 
synonym(cur_was_for_weight_val)=$the calculated weight 
for a current account that was a foreclosures. 
synonym(cur_was_for_info)=$the current case$. 
synonym(cur_was weight _val)=$the calculated weight for 
a current account that was delinquent$. 
synonym(cur_was_info)=$the current cases. 
synonym(cwpd_weight_val)=$the calculated weight for a 
current account that was past dues. 
synonym(curwaspd_info)=$the current cases. 
synonym(paid satis_weight_val)=$the calculated weight 
for a closed account that was paid satisfactorily®s. 
synonym(paid satis _info)=¢the current cases. 
synonym(paid_acct_weight_val)=$the calculated weight 
for an account that is closed, has zero balance or 
is not rated$. 
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synonym(paid_acct_info)=$the current cases. 
synonym(pd_not_aa_weight_val)=$the calculated weight 
Tor a paid account with some payments not made as 
agreeds. 
synonym(pd_not_aa_infa)=$the current cases. 
synonym(pacc_wpd_weight_val)=$the calculated weight for 
a paid account that was past dues. 
Ssynonym(pacc_wpd_info)=$the current cases. 
synonym(pacc_wdel_weight_val)=$the calculated weight 
for a paid account that was delinquents. 
synonym(pecc wdel_infa)=$the current cases. 
synonym(pd_chg_off_weight_val)=S$the calculated weight 
for a paid account that was a charge offs. 
synonym(pd_chg_off_info)=$the current cases. 
synonym(pd_repo_weight_val)=$the calculated weight for 
@ Paid account that was a repossessions. 
synonym(pd_repo_info)=S$the current cases. 
synonym(pd_coll_ac_weight_val)=$the calculated weight 
for a paid account that was a collections insurance 
or education claims. 
synonym(pd_coll_ac_info)=Sthe current cases. 
synonym(notpdaa_weight_val)=$the calculated weight for 
an account not being paid as agreed$. 
synonym(notpdaa_info)=$the current cases. 
synonym(pd foreclo _weight_val)=$the calculated weight 
for a paid account that was a foreclosures. 
synonym(pd_foreclo_info)=$the current cases. 
synonym(deling_weight_val)=$the calculated weight for a 
delinquent accounts. 
synonym(deling_info)=$the current cases. 
synonym(accpd weight_val)=$the calculated weight for an 
account past dues. 
synonym(accpd_info)=$the current cases. 
synonym(volnrepo_weight_val)=$the calculated weight for 
voluntary repossessions. 
synonym(volnrepo_info)=$the current cases. 
synonym( foreclosure weight_val)=S$the calculated weight 
for a foreclosures. 
Svnonym(tforeclosure_info)=S$the current cases. 
synonym(repo _weight_val)=$the calculated weight for a 
repossession$. 
synonym(repo_info)=Sthe current cases. 
synonym(pdbydlr_weight_val)=$the calculated weight for 
an account that was paid by dealers. 
synonym(pdbydlr_info)=$the current cases. 
synonym(coll_acct_weight_val)=$the calculated weight 
for a collection accounts. 
Ssynonym(coll_acct_info)=S$the current cases. 
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synonym(charge_off_weight_val)=$the calculated weight 
for a charge offs. 
synonym(charge_off_info)=$the current case$. 
synonym(close_np_aa_weight _val)=Sthe calculated weight 
for credit line closed account not paid as agreed$. 
synonym(close _np_aa_info)=$the current cases. 
synonym(scnl_weight_val)=$the calculated weight for 
unlocated consumer$. 
synonym(scnl_info)=$the current cases. 
synonym(fore_proc_weight_val)=$the calculated weight 
for foreclosure proceeding$. 
synonym(fore_proc_info)=$the current cases. 
synonym(insclaim_weight_val)=S$the calculated weight for 
claim filed against insured portion of balance?$. 
synonym(insclaim_infoa)=$the current cases. 
synonym(gov_claim_weight_val)=$the calculated weight 
for government claims. 
synonym(gov_claim_info)=$the current cases. 
synonym(settled_ weight _val)=$the calculated weight for 
a settled accounts. 
synonym(settled_info)=$the current cases. 
synonym(scnl_nwlioc_weight_val)=$the calculated weight 
for a located consumer previously unlocateds. 
synonym(scnl_nwloc_infoa)=%$the current cases. 
synonym(co_nOWw_pay_weight_val)=$the calculated weight 
for a paying account that was a charge offs. 
synonym(co_now_pay_info)=$the current cases. 
synonym(refinanced weight_val)=¢the calculated weight 
for a refinanced accounts. 
synonym(refinanced_info)=$the current cases. 
synonym(cr_cd_lost_weight_val)=$the calculated weight 
for credit card lost or stolens. 
synonym(cr_cd_lost_info)=$the current cases. 
synonym(clos_inac_weight_val)=tthe calculated weight 
for closed inactive accounts. 
synonym(clos_inac_info)=$the current cases. 
synonym(transfered_weight_val)=$the calculated weight 
for transferred account$. 
synonym( transfered info)=$the current cased. 
synonym( too new_rt_weight_val)=$the calculated weight 
tor an account too new to rates. 
synonym( too new_rt_infa)=$the current cases. 
synonym(deceased _weight_val)=$the calculated weight for 
deceased$s. 
synonym(deceased_info)=$the current cases. 
synonym(cr_ln_clos weight _val)=$the calculated weight 
for credit line closed$. 
synonym(cr_I1ln_clos_info)=$the current cases. 
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synonym(redmd_repo_weight_val)=$the calculated weight 
for redeemed repossessions. 

synonym(redmd_repo_info)=%the current cases. 

synonym(cr_Iin_rnst_weight_val)=$the calculated weight 

for credit line reinstated$. 

synonym(cr_in_rnst_info)=$the current cases. 

synonymCing_ weight_val)=$the calculated weight for 
inquiry®s. 

synonym(ingquiry_info)=$the current cases. 

synonym(superpayer _weight_val)=$the calculated weight 
for superpayers$. 

synonym(superpayer _info)=$the current cases. 

synonym(bkliqreo_n)=s$the number of occurrences of debt 
included or discharged through bankruptcy chapter 7 
@ir Wil es. 

synonym(settled_n)=$the number of occurrences of 
settled accounts$s. 

synonym(bk_adj_pln_n)=$the number of occurrences of 
debt included or discharged through bankruptcy 
chapter 13%. 

synonym(scnl_nwloc_n)=$the number of occurrences of a 
located consumer previously unlocated$. 

synonym(co_now_pay_n)=$the number of occurrences of 

charge offs now being paidé. 

synonym(fore_proc_n)=$the number of occurrences of 
foreclosure proceedings®$. 

Ssynonym(gov_claim_n)=$the number of occurrences of 
government claims$s. 

synonym(close_np_aa_n)=$the number of occurrences of 
credit line closed account not paid as agreeds. 

synonym(scnl_n)=$the number of occurrences of unlocated 
consumers. 

synonym(fed_tax_ln_n)=$the number of occurrences of 
federal tax liens$s. s 

synonym(fed_tax_rel_n)=$the number of occurrences of 
federal tax liens released$. 

synonym( judgmt_sat_n)=$the number of occurrences of 
satisfactory judgementss. 

synonym( judg_vacat_n)=$the number of occurrences of 

vacated judgements®s. 

synonym(mech_lien_n)=$the number of occurrences of 
mechanics liens$. 

synonym(mech_rele_n)=s$the number of occurrences of 
mechanics liens released$. 

synonym(mn_mtg_fil_n)=$the number of occurrences of 
filed manual mortgage reportss. 

synonym(nt_respon_n)=sthe number of occurrences of not 
responsible notices$. 
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synonym(stat_tx_In_n)=$the number of occurrences af 
state tax liens$. 

synonym(sta_tx_rel_n)=$the number of occurrences of 
state tax liens released$. 

synonym(sulit_dismd_n)=$the number of occurrences of 
suitss. 

synonym(wage_asign_n)=$the number of occurrences of 
wage assignments?s. 

synonym(wa_release_n)=$the number of occurrences of 
wage assignments released$. 

synonym(refinanced_n)=$the number of occurrences of 
refinanced$. 

synonym(cr_cd_lost_n)=$the number of occurrences of 
credit card lost$. 

synonym(clos_inac_n)=$the number of occurrences af 
closed inactive accounts. 

synonym( transfered _n)=$the number of occurrences of 
transfers$s. 

synonym( too_new_rt_n)=$the number of occurrences af tao 
new to rates. 

synonym(paid_satis_n)=$the number of occurrences of 
paid satisfactorily$. 

synonym(paid_acct_n)=S$the number of occurrences of paid 
account$. 

synonym(deceased _n)=$the number of occurrences of 
deceased$. 

synonym(cr_Iln_clos_n)=$the number of occurrences of 
credit line closed$. 

synonym(redmd_repo_n)=s$the number of accurrences of 
redeemed repossessions?$. 

synonym(cur_was_col_n)=s$the number of occurrences of 
current accounts that were collection accounts$. 

synonym(cr_Iin_rnst_n)=$the number of occurrences af 
credit line reinstateds. 

synonym(cur_was_for_n)=$the number of occurrences of 
Current accounts that were foreclosures$s. 

synonym(pd_not_aa_n)=$the number of occurrences of paid 
accounts with some payments not made as agreed?é. 

synonym(city_tx_Iln_n)=$the number of occurrences of 
city tax liens. 

synonym(city_tx_rel_n)=$the number of occurrences of 
city tax lien released$. 

synonym(consel_ser_n)=$the number of occurrences af 
debt counseling services. 

synonym(co_tax_In_n)=$the number af occurrences of 
county tax liens. 

synonym(co_tax_rel_n)=$the number of occurrences of 
county tax lien releaseds. 
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synonym(pd_foreclo_n)=$the number of occurrences of 
Paid accounts that were foreclosures. 
synonym(pd_chg_off_n)=$the number of occurrences of 
Paid accounts that were charge offs. 
synonym(pd_repo_n)=$the number of occurrences of paid 
accounts that were repossessions. 
synonym(pd_coll_ac_n)=$the number of occurrences of 
Paid accounts that were collections; or insurance 


Or education claims$. 
synonym(pacc_ wdel60_n)=$the 

paid accounts that were 
synonym(pacc_wdel90_n)=$the 

Paid accounts that were 


number of occurrences of 


delinquent 


60 days. 


number of occurrences of 


delinquent 


synonym(pacc_wdel1i20_n)=$the number of 


paid accounts that were 


delinquent 


synonym(pacc_wdeliS50_n)=$the number of 


paid accounts that were 


delinquent 


synonym(pacc_wdel180_n)=%the number of 


paid accounts that were 
synonym(suit_n)=Sthe number 
synonym(pacc_wpd_30_n)=%the 
paid accounts that were 


times®. 


delinquent 


90 days. 
occurrences of 
120 days. 
occurrences of 
150 days#. 
occurrences of 
180 days. 


of occurrences of Suitss. 
number of occurrences of 
past due 30 days®. 
synonym(pacc_wpd_30bye3_n)=$the number of occurrences 
of paid accounts that were past due 30 days 2 or 3 


synonym(pacc_wpd_30by4_n)=%the number of occurrences of 
paid accounts that were past due 30 days 4 times$s. 
synonym(pacc_wpd_30by5_n)=%the number of occurrences of 
paid accounts that were past due 30 days 5 timess. 
synonym(pacc_wpd_30by6_n)=%the number of occurrences of 
paid accounts that were past due 30 days 6 times®. 
synonym(accpd 30_n)=%$the number of occurrences of an 
account past due 30 days. 
Ssynonym(accpd 30by2_n)=Sthe number of occurrences of an 
account past due 30 days 2 times$. 
synonym(accpd 30by3_n)=sthe number of occurrences of an 
account past due 30 days 3 times$. 
synonym(accpd 30by4_n)=$the number of occurrences of an 
account past due 30 days 4 times$. 
synonym(accpd 30byS5_n)=$the number of occurrences of an 
account past due 30 days 5 timess. 
synonym(accpd 30by6_n)=$the number of occurrences of an 
account past due 30 days 6 timess. 
Ssynonym(cwpd_n)=sthe number of occurrences of a current 
account that was past dues. 


synonym(cwpd 30_n)=$the number of 
current account that was past 
synonym(cwpd_ 30by2e_n)=Sthe number 


HOS 


occurrences of a 
due 30 days$. 
of occurrences of a 


Current account that was past due 30 days 2 
times®. 
synonym(cwpd_30by3_n)=$the number of occurrences of a 
current account that was past due 30 days 3 timess. 
synonym(cwpd_ 30by4_n)=s$the number of occurrences of a 
current account that was past due 30 days 4 timess. 
synonym(cwpd_ 30by5_n)=$the number of occurrences of a 
current account that was past due 30 days 5 times$. 
synonym(cwpd 30by6_n)=$the number of occurrences of a 
current account that was past due 30 days 6 times. 
synonym(d 60 _n)=$the number of occurrences of an 
account delinquent 40 days$. 
synonym(d 90_n)=$the number of occurrences of an 
account delinquent 90 days®$. 
synonym(d_120_n)=$the number of occurrences of an 
account delinquent 120 days. 
synonym(d_ 150_n)=%the number of occurrences of an 
account delinquent 150 days. 
synonym(d_180_n)=$the number of occurrences of an 
account delinquent 180 days$. 
synonym(c_w_60_n)=S$the number of occurrences of a 
current account that was delinquent 60 days®$. 
synonym(c_w_90_n)=$the number of occurrences of a 
Current account that was delinquent 90 days®s. 
synonym(c_w_120_n)=$the number of occurrences of a 
Current account that was delinquent 120 days®. 
synonym(c_w_iS0_n)=$the number of occurrences of a 
current account that was delinquent 150 days®#. 
synonym(c_w_18O0_n)=S$the number of occurrences of a 
current account that was delinquent 180 days$. 
synonym(pdbydlr_n)=S$the number of occurrences of 
accounts paid by dealer$. 
synonym(coll_acct_n)=$the number of occurrences of 
collection accounts. 
synonym(charge_off_n)=$the number of occurrences of 
charge offs. 
synonym(curr_acct_n)=s$the number of occurrences of 
current accounts$. 
synonym(insclaim_n)=S$the number of occurrences of a 
Claim filed against insured portion of balances. 
synonym(notpdaa_n)=S$the number of occurrences of an 
account not Being paid as agreed?s. 
synonym(volnrepo_n)=$the number of occurrences of 
voluntary repossessions. 


the concluded of conclusion_info is too_many_accts 


104 


it 


the curr_acct_n af superpayer_info is N and 
Nie Or 
the concluded of conclusion_info is potential _bankrupt 
Tht 
the weight_pt_val of weight_pt_info is alarmingly_high. 
the weight_pt_val of weight_pt_info is alarmingly_high 
if 
the overall_weight_val of conclusion_info is Y and 
ENS (ID _ Ute _eipy_ Vel © Elie _ OT winkhe WS 42 eave 
Yo 2 Be 
the concluded of conclusion_info 1s sSuperpayer 
if 
the monthly_payment of the superpayer_info is E and 
the monthly_income of the personal_info is I and 
BY ie 
the concluded of conclusion_info is normal 
tata 
the weight_pt_val of weight_pt_info is extremely_low. 
the weight_pt_val of weight_pt_info is extremely_low 
if 
the overall _weight_val of conclusion_info is Y and 
the extremely_low_cut_off_val af cut_off_info is 2 and 
¥ =f 2. 
the concluded af conclusion_info is satisfactory 
LaF 
the weight_pt_val of weight_pt_info is very_low. 
the weight_pt_val of weight_pt_info is very_low 
Rap 
the overall_weight_val of conclusion_info is Y and 
the very_low_cut_off_val of cut_off_info is 2 and 
Y= See 
the concluded of conclusion_info is poor 
NaF 
the weight_pt_val of weight_pt_info is low. 
the weight_pt_val of weight_pt_info is low 
RiP 
the overall_weight_val of conclusion_info is Y and 
Pnemlawmert off val of “elt Off into is 2 and 
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the concluded af conclusion_info 1s very_poor 
if 
the weight_pt_val of weight_pt_info 1s moderately_high. 


the weight_pt_val of weight_pt_info is moderately_high 
Aw 

the overall_weight_val of conclusion_info 1s Y and 

the moderately_high_cut_off_val of cut_off_info is 2 

and 

Yo SS Ge 


the concluded of conclusion_info is Serious 
if - 
the weight_pt_val of weight_pt_info is high. 


the weight_pt_val of weight_pt_info is high 
Lae 
the overall_weight_val of conclusion_info is Y and 
the high_cut_off_val of cut_off_info 1s 2 and 
A EXE 


the concluded of conclusion_infa is critical 
Lar 
the weight_pt_val of weight_pt_info is very_high. 


the weight_pt_val of weight_pt_info is very_high 
1 

the overall_weight_val of conclusion_info is Y and 

the very_high_cut_off_val of cut_off_info is 2 and 

Y =O eae 


the conc luded of conclusion_info is very_critical 

the ai megan of weight_pt_info is extremely_high. 
the weight_pt_val of weight_pt_info is extremely_high 
the aval si eee of conclusion_info 1s Y and 

the extremely_high_cut_off_val of cut_off_info is 2 and 


oo Be 
the overall_weight_val of conclusion_info is Y 
RP 
the public_record_val of conclusion_info is Y_1 and 
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the private_record_val of conclusion_info is Y_@ and 
YS VY ise ele 


the concluded of conclusion_info is xX 
ee 
the overall_weight_val of conclusion_info is Y and 


weighted decision(Y;X). 


the public_record_val of conclusion_info is 2 
LF 

the serv lot bkrpts_ and liens weight _val of 

conclusion_info is 2_1 and 

the set_of_misc_public_items_weight_val of 

SAnanecvomeadimro 1s 2. 

and 2 = 2_1+2_é@. 


the private_record_val of conclusion_info is 2 

ty 
the set_of_current_and_paid_accts_weight_val of 
conclusion_info is 2_3 and 
the set_of_delinqg_accts weight_val of conclusion_info 
1s 2.4 and 
the set_of_misc_private_items_weight_val of 
conclusion_info is 2_5 and 
a SB _ekee ere Ss 


the set_of _bkrpts_and_liens_weight_val of 
conclusion_info is 2_1 
te 


the bk_adj_pln_weight_val of Bk_adj_pln_info is X_1 and 


the bkliqreo_weight_val of bkliqreo_info is X_e and 
the bk_vals of trw_info is X_3 and 

the mech_lien_weight_val of mech_lien_info is X_4 and 
the mech_rele _weight_val of mech_rele_info is X_5 and 


the fed_tax_ln_weight_val of fed_tax_In_info is X_& and 


the fed tax _ rel_weight_val of fed_tax_rel_info is X_7 
and ; 


the stat_tx_In_weight_val of stat_tx_ln_info is X_8 and 
the sta _tx_rel_weight_val of sta_tx_rel_info is X_9 and 


the city_tx_ln_weight_val of city_tx_In_info is X_10 
and 

fine see yetx rel weight val.ot Ciltyote rel_info is X_1i1 

and 

me co caw Im weight val of coytaxclmlinfo,is X2le and 

the co_tax_rel_weight_val of co_tax_rel_info is X_13 
and 
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Zi 


the 


= X_1+X_@+X_S+X _4+X _3+X_G#X_ 7 PASS ex 7 0 
+X 11+X_12+X_13. 


set_of_misc_public_items_weight_val of 


conclusion_info is 2.2 


the 


the 


the 
the 


the 


the 


the 
the 


the 
the 


Zac 


the 


oF 
judgmt_sat_weight_val of judgmt_sat_info is X_20 
and 
judg_vacat_weight_val of judg vacat_info is X_el 
and 
judgment _weight_val of judgment_info is X_ee and 
wage_asign_weight_val of wage_asign_info is X_e3 
and 
wa_ release weight_val of wa_release_info is X_e4 
and 
suit_dismd_weight_val of suit_dismd_info is X_e5 
and 
suit_weight_val of suit_info is X_e@46 and 
mn_emtg_fil_weight_val of mn_mtg_fil_info is X_e? 
and 
nt_respon_weight_val of nt_respon_info is X_@8 and 
consel ser_weight_val of consel_ser_info is X_e9 
and : 
= X_ 20+X_2L+X_ 22+X_ 23+X_24+X_ 25+X_2C6+X_ 27 

wi eishrk 2S). 


set_of_current_and_paid_accts_weight_val of 


conclusion_info is 2_3 


the 
and 
the 


the 


the 
the 
the 


the 
the 
the 
the 
the 


the 


if 
cCurr_acct_n_weight_val of superpayer_info is X_30 


cur_was_col_weight_val of cur_was_col_info is X_31l 
and 

Cur_was_for_weight_val of cur_was_for_info is X_3e 
and 

Cur _was_ weight_val of cur_was_info is X_33 and 
Cwpd_ weight_val of curwaspd_info is X_34 and 

Paid satis _weight_val of paid satis_info is X_35 
and 

paid _acct_weight_val of paid _acct_info is X_36 and 
pd _not_aa_weight_val of pd_not_aa_info is X_37 and 
Pacc_wpd_weight_val of pacc_wpd_info is X_38 and 
pacc _wdel_weight_val of pacc_wdel_info is X_39 and 
pd_chg_off_weight_val of pd_chg_off_info is X_40 
and 

pd_repo_weight_val of pd_repo_info is X_41i and 
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the 


the 
the 


2 28 


the 


pd_coll_ac_weight_val of pd_coll_ac_info is X_42 
and 

notpdaa_weight_val of notpdaa_info is X_43 and 
pd_foreclo_weight_val of pd_foreclo_info is X_44 
and 

Ree eo eset k Seek Sa sot x 367K 0S 77X% aor 
X_39+X_4O+X_ 41+X_ 42+X_43+xK _ 44. 


set_of_delinq_accts_weight_val of conclusion_info 


is 2_4 


the 
the 
the 
the 


the 
the 
the 
the 


the 


the 
the 
the 
the 


Z_4= 


the 


iL if 

deling_weight_val of delinq_info is X_45 and 
accpd_weight_val of accpd_info is X_46 and 
volnrepo_weight_val of volnrepo_info is X_47 and 
Fforeclosure_weight_val of foreclosure_info is X_48 
and 

repo_weight_val of repo_info is X_49 and 
pdbydlr_weight_val of pdbydlr_info is X_SO and 
coll_acct_weight_val of coll_acct_info is X_S1 and 
charge_off_weight_val of charge_off_info is X_Se 
and 

Close_np_aa_weight_val of close np_aa_info is X_33 
and 

scnl_weight_val of scnl_info is X_S4 and 
fore_proc_weight_val of fore_proc_info is X_S55 and 
insclaim_weight_val of insclaim_info is X_5& and 
gov_claim_weight_val of gov_claim_info is X_5S7 and 
X_45+X_ 46+X_47+X_48+X_49+X_5O0+X_51+X_S2+x_SO+ 
X_S4+X_55+X_S6+X_ 57. 


set_of_misc_private_items_weight_val of 


conclusion_info is 2_5 


the 
the 


the 


the 


the 


the 
the 


the 


the 


if 
settled weight_val of settled_info is X_58 and 
scnl_nwloc_weight_val of scnl_nwloc_info is X_S9 
and 
CO_nOW_Pay_weight_val af co_now_pay_info is X_60 
and 
refinanced weight_val of refinanced_info is X_61 
and 
cr_cd_lost_weight_val of cr_cd_lost_info is X_62 
and 
clos_inac_weight_val of clos_inac_info is X_63 and 
transfered weight_val of transfered_info is X_6&4 
and 
too_new_rt_weight_val of too_new_rt_info is X_65 
and 
deceased weight_val of deceased_info is X_6&& and 
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the cr_In_clos_weight_val of cr_Iln_clos_info is X_67 


and 


the redmd_repo_weight_val of redmd_repo_info is X_6&8 


and 


the cr_Iln_rnst_weight_val of cr_In_rnst_info is X_69 


and 
the inq_weiqht_val of inquiry_info is X_7O and 


the superpayer_weight_val of superpayer_info is X_7l 


and 


i, ay NS eishes\ Siar. GRP Gilat Greer eke Geri Gerri Gas 


Ms OPM GSP aris Ose Wil - 


the bBkliqreo_weight_val of bkliqreo_info is xX 
lity 
the Bkliqreo_n of bkliqreo_info is N_1 and 
weight_per_status(bkliqreo,WT_1) and 
xX =-N_1*WT_1. 


the settled_weight_val of settled_info is X 
Ld 
the settled_n of settled_info is N_1 and 
weight_per_status(settled,WT_1) and 
X = N_1i*WT_1. 


the bk_adj_pln_weight_val of bk_adj_pln_info is 
if 
the Bbk_adj_pln_n of Bbk_adj_pln_info is N_1 and 
weight_per_status(bk_adj_ pln,WT_1i) and 
x = N_1*WT_1. 


the scnl_nwloc_weight_val of scnl_nwloc_info is 
1, if 
the scnl_nwloc_n of scnl_nwloc_info is N_1 and 
weight_per_status(scnl_nwloc,WT_1) and 
x = N_1*WT_1. 


the co_now_pay_weight_val of co_now_pay_info is 
Tat : 
the co_now_pay_n of co_now_pay_info is N_1 and 
weight_per_status(co_now_pay;,WT_1) and 
X = N_1*WT_1. 


the fore_proc_weight_val of fore_proc_info is X 
AW 


the fore_proc_n of fore_proc_info is N_1 and 
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weight_per_status(fore_proc,WT_1) and 
x = N_1*WT_1. 


the gov_claim_weight_val of gov_claim_info is xX 
ety 
the gov_claim_n of gov_claim_info is N_1 and 
weight_per_status(gov_claim,WT_1) and 
X = N_1*WT_1. 


the close_np_aa_weight_val of close_np_aa_info is X 
Tag 
the close_np_aa_n of close_np_aa_info is N_1 and 
weight_per_status(close_np_aa,WT_1) and 
RX = N_i*WT_1. 


the scnl_weight_val of scnl_info is X 
NaF 
the scnl_n of scnl_info is N_1 and 
weight_per_status(scnl,WT_1) and 
X = N_1*WT_1. 


the fed_tax_In_weight_val of fed_tax_ln_info is X 
neta 
the fed_tax_Iln_n of fed_tax_ln_info is N_1 and 
weight_per_status(fed_tax_In,WT_1) and 
Ras Newel: 


the fed_tax_rel_weight_val of fed_tax_rel_info is X 
ip 
the fed_tax_rel_n of fed_tax_rel_info is N_i and 
weight_per_status(fed_tax_rel,WT_1) and 
A =ONL1*WT_1. 


the judgmt_sat_weight_val of judgmt_sat_info is xX 
if the judgmt_sat_n of judgmt_sat_info is N_1 and 
weight_per_status(judgmt_sat;,WT_1) and 
xX = N_1*WT_1. 


the judg _vacat_weight_val of judg_vacat_info 1s x 
ate 
the judg vacat_n of judg_vacat_info is N_1 and 
welight_per_status(judg_vacat,WT_1i) and 
x = N_1¥WT_1. 
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the mech_lien_weight_val of mech_lien_info is X 
if 
the mech_lien_n of mech_lien_info is N_1 and 
weight_per_status(mech_lien,WT_1) and 
xX = N_1*WT_1. 


the mech_rele_weight_val of mech_rele_info is X 
AG 
the mech_rele_n af mech_rele_info is N_1 and 
weight_per_status(mech_rele,WT_1) and 
X = N_1*WT_1. 


the mn_mtg_fil_weight_val of mn_mtg_fil_info is 
if 
the mn_mtg_fil_n of mn_mtg_fil_info is N_1 and 
weight_per_status(mn_mtg_fil,WT_1) and 
% = N_1#*WT_1. 


the nt_respon_weight_val of nt_respon_info is X 
Nie 
the nt_respon_n of nt_respon_info is N_1 and 
weight_per_status(nt_respon.,WT_1) and 
X = N_1*WT_1. 


the stat_tx_In_weight_val of stat_tx_In_info is 
LaF 
the stat_tx_Iln_n of stat_tx_In_info is N_1 and 
weight_per_status(stat_tx_In,WT_1) and 
xX = N_1*WT_1. 


the sta_tx_rel_weight_val of sta_tx_rel_info is 
if 
the sta_tx_rel_n of sta_tx_rel_info is N_1 and 
weight _per_status(sta_tx_rel,WT_1) and 
% = Newt oie 


the suit_dismd_weight_val of suit_dismd_info is 
at 
the suit_dismd_n of suit_dismd_info is N_1 and 
weight_per_status(suit_dismd,WI_1) and 
X = N_1*WT_1L. 


the wage_asign_weight_val of wage_asign_info is 
if 


ie 


xX 


X 


X 


Xx 


X 


the wage_asign_n of wage_asign_info is N_1 and 
weignht_per_status(wage_asign,WT_1) and 
X = N_1*WT_1. 


the wa_release_weight_val of wa_release_info is 
ae 
the wa_release_n of wa_release_info is N_1 and 
weight_per_status(wa_release,WT_1) and 
xX = N_1*WT_1. 


the refinanced weight_val of refinanced_info is 
198 
the refinanced _n of refinanced_info is N_1 and 
weighnt_per_status(refinanced,;WT_1) and 
X = N_1*WT_1. 


the cr_cd_lost_weight_val of cr_cd_laost_info is 
ety 
the cr_cd_lost_n of cr_cd_lost_info is N_1 and 
weight_per_status(cr_cd_lost;WT_1) and 
RX = N_1*WT_1. 


the clos_inac_weight_val of clos_inac_info is X 
if 
the clos_inac_n of clos_inac_info is N_1 and 
weight_per_status(clos_inac;WT_1) and 
: X = N_1i*WT_1. 


the transfered _weight_val of transfered_info is 
iar 
the transfered _n of transfered info is N_1 and 
weight_per_status(transfered,WT_1) and 
x = N_1*WT_1. 


the too _new_rt_weight_val of too_new_rt_info is 
uy 
the too _new_rt_n of too_new_rt_info is N_1 and 
weignt_per_status(too_new_rt;sWT_1) and 
X = N_1*WT_1. 


the paid _ satis_weight_val of paid_satis_info is 
Lap 


the paid_satis_n of paid_satis_info is N_1 and 


iL ee} 


weight_per_status(paid_satis,WT_1) and 
x = N_1*WT_1. 


the paid _acct_weight_val af paid_acct_info is xX 
if 
the paid_acct_n of paid_acct_infao is N_i and 
weight_per_status(paid_acct,WT_1) and 
X = N_1*¥WT_1. 


the deceased weight_val of deceased_infa is X 
ap 
the deceased_n of deceased_info is N_1 and 
weight_per_status(deceased,WT_1) and 
X = N_1*WT_1. 


the cr_Iin_clos_weight_val af cr_Iln_clos_infa 1s X 
i iF 
the cr_lniclas_m ef ecr_Inzelas inte ve Nel and 
weight_per_status(cr_Iln_clos;,WT_1) and 
X = N_1*WT_1. 


the redmd_repo_weight_val af redmd_repo_info is xX 
Le 
the redmd_repo_n af redmd_repo_info is N_1 and 
weight_per_status(redmd_repo,WI_1) and 
xX = N_1*WT_1. 


the cur_was_col_weight_val of cur_was_cal_info is X 
a iP 
the cur_was_col_n of cur_was_col_info is N_1 and 
weight_per_status(cur_was_col;WT_1) and 
x = N_1*WT_1. 


the cr_in_rnst_weight_val af cr_Iln_rnst_infa is X 
if 
the cr_Iln_rnston Of Erlinornstlinte toe lei weaned 
weight_per_status(cr_In_rnst,WT_1) and 
xX = N_1*WT_1. 


the cur_was_for_weight_val of cur_was_for_info is xX 
if 

the cur_was_for_n of cur_was_for_info is N_1 and 

weight_per_status(cur_was_for,WT_1) and 
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X = N_1*WT_1. 


the pd_not_aa_weight_val of pd_not_aa_info is xX 
if 
the pd_not_aa_n af pd_not_aa_info is N_1 and 
weight_per_status(pd_not_aa,WT_1) and 
X = N_1*WT_1. 


ce iey tx Iniveight_val of city_tx_Imn_info is xX 
ty 
the city_tx_In_n of city_tx_ln_info is N_1 and 
weight_per_status(city_tx_In,WT_1) and 
m= Neen Ty 1; 


Thieme mtyotxareWaweighituval som Gityotx Tel inte 1S Xx 
ih 
Ememetoyaux pellimn af city tx rel ante vs Noi and 
weight_per_status(city_tx_rel,WT_1) and 
X = N_1*WT_1. 


the consel_ser_weight_val of consel_ser_info is X 
ant 
the cansel_ser_n of consel_ser_info is N_1 and 
weight_per_status(consel_ser,WT_1) and 
X = N_1*WT_1. 


the co_tax_iln_weight_val af co_tax_In_info is X 
Sint 
the ca_tax_In_n of co_tax_In_info is N_1 and 
weight_per_status(co_tax_ln,WT_1) and 
% =TNGTENT 1. 


tne co_tax_rel_weight_val of co_tax_rel_info is X 
ian 
the co _tax_rel_n of co_tax_rel_info is N_1 and 
weight_per_status(co_tax_rel.,WT_1l) and 

x = N_1*WT_1. 


the pd_foreclo_weight_val of pd_foreclo_info is X 
Lar 
the pd_foreclao_n of pd_forecla_info is N_1 and 
weight_per_status(pd_forecla,WT_1) and 

e =ON NT 1. 
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the pd_chg_off_weight_val of pd_chg_off_info is xX 
if 
the pd_chg_off_n of pd_chg_off_info is N_1i and 
weight_per_status(pd_chgq_off,WT_1) and 

XxX = N_1*WT_1. 


the pd_repo_weight_val of pd_repo_info is X 
La 
the pd_repo_n of pd_repo_info is N_1 and 
weight _per_status(pd_repo;,WT_1) and 
X = N_1*WT_1. 


the pd_coll_ac_weight_val of pd_coll_ac_info is X 
a 
the pd_coll_ac in of pd_coll_ac_info is N_1 and 
weight_per_status(pd_coll_ac,WT_1) and 

X = N_1*WT_1. 


the pacc_wdel_weight_val of pacc_wdel_info is X 
taf 

the pacc_wdeldS0_n of pacc_wdel&S0_info is N_1 and 

weight_per_status(pacc_wdeld0,WT_1) and 
Pacc_wdel60_ WT = N_1*WT_1 and 

the pacc_wdel90_n of pacc_wdel90_info is N_@ and 

weight_per_status(pacc_wdel90;,WT_2) and 
Pacc_wdel90_WT = N_e@x*WT_e2 and 

the pacc_wdelte2O_n of pacc_wdell20O_info is N_3 and 

weight_per_status(pacc_wdel1l2e0,WT_3) and 
Pacc_wdel1le2O_WT = N_3*WT_3 and 

the pacc_wdel1S50_n of pacc_wdel1lS0_info is N_4 and 

weight_per_status(pacc wdel150,WT_4) and 
Pacc_wdeliSoO_WT = N_G#*WT_4 and 

the pacc_wdeli80_n of pacc_wdeli80_info is N_S and 

weight_per_status(pacc_wdel1i80,WT_5S) and 
Pacc_wdel180_WT = N_S#*WT_S and 

X = Pacc_wdel60_ WT + Pacc_wdel?0_WT + Pacc_wdelleO WT + 

Pacc_wdeltSoO_WT + Pacc_wdeli80_WT. 


the suit_weight_val of suit_info is xX 
Lt 
the suit_n of suit_info is N_1 and 
weight_per_status(suit;,WT_1i) and 
X = Note ie 


the pacc_wpd_weight_val of pacc_wpd_info is X 
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if 
the pacc_wpd_30_n of pacc_wpd_30_info is N_1 and 
weight_per_status(pacc_wpd_30,WT_1) and 
Pacc_wpd_ 30_WT = N_1*WT_1 and 
the pacc_wpd_ 30bye3_n of pacc_wpd_30by23_info is N_2 
and 
weight_per_status(pacc wpd 30by23,;WT_2) and 
Pacc_wpd_30by23_WT = N_2@*WT_2@ and 
the pacc_wpd_30by4_n of pacc_wpad 30by4_info is N_4 and 
weight_per_status(pacc_wpd_30by4,;WT_4) and 
Pacc_wpd_30by4 WT = N_4*WT_4 and 
the pacc_wpd_30byS5_n of pacc_wpd_30byS_info is N_S and 
weight_per_status(pacc wpd 30by5,WT_5S) and 
Pacc_wpd_30byS_WT = N_S#*WT_S and 
the pacc_wpd_30by6_n of pacc_wpd_ 30by4_info is N_& and 
weight_per_status(pacc_wpd_30by4,WT_&) and 
Pacc_wpd_ 30by46_WT = N_6*WT_6 and 
X = Pacc_wpd_ 30_WT + Pacc_wpd_ 30by2e3_WT + 
Pacc_wpad_30by4_WT + 
Pacc_wpd 30byS_WT + Pacc_wpd_30by6_WT. 


the accpd_weight_val of accpd_info is X 
bap 

the accpd_30_n of accpd_30_info is N_1 and 
weight_per_status(accpd_30,WT_1) and 

Accpd_30_WT = N_1*WT_1 and 
the accpd 30bye_n of accpd_30bye_info is N_@ and 
weignt_per_status(accpd 30byesWT_2@) and 

Accpd 30bye_WT = N_@*WT_2@ and 
the accpd 30by3_n of accpd_ 30by3_info is N_3 and 
weight_per_status(accpd_30by3,WT_3) and 

Accpd 30by3_WT = N_3*WT_3 and 
the accpd_ 30by4_n of accpd_S30by4_info is N_4& and 
weight_per_status(accpd_ 30by4,WT_4) and 

Accpd 30by4_WT = N_4*WT_4 and 
the accpd_ 30byS5_n of accpd_ 30byS5_info is N_S and 
weight _per_status(accpd_30by5,WT_5) and 

Accpd_30byS5_WT = N_S*WT_S and 
the accpd 30by6_n of accpd_30byé_info is N_& and 
weight_per_status(accpd_30by6;,WT_6) and 

Accpd 30by6_WT = N_6*WT_& and 
he— Acecod 30 WT + Acepd S0bye WT + Accpd_ S3Oby3_WT + 
Accpd_ 30by4_WT + Accpd_30by5_WT + Accpd_30by6_WT. 


the cwpd_weight_val of curwaspd_info is X 
1 
the cwod_n of cwpad_info is N_1 and 
weight_per_status(cwpd,WT_1) and 
Cwod_ WT = N_1*WT_1 and 


Lal 


the cwpd_30_n of cwpd 30_info is N_@ and 
weight_per_status(cwpd_30,WT_2) and 
Cwed_30_WT = N_e@*WT_e and 
the cwpd_ 30bye_n of cwpd_ 30bye_info is N_3 and 
weight_per_status(cwpd_30byée,WT_3) and 
Cwpd 30bye WT = N_3*WT_3 and 
the cwpd_ 30by3_n of cwpd_30by3_info is N_4 and 
weight per_status(cwpd 30by3,WT_4) and 
Cwed_ 30by3_WT = N_4*WT_4 and 
the cwpd_30by4_n of cwpd_ 30by4_info is N_S and 
weight _per_status(cwpd 30by4,WT_S5) and 
Cwpd_S30by4_WT = N_S*WT_S and 
the cwpd_ 30by5_n of cwpd_ 30byS_info is N_6 and 
weight_per_status(cwpd_ 30by5,;WT_&) and 
Cwpd_30by3_WT = N_&6*WT_& and 
the cwpd_ 30by6_n of cwpd_ 30by6_info is N_7 and 
weight_per_status(cwpod 30by6,WT_7) and 
Cwpd_30by6_WT = N_7*WT_7 and 
X = Cwped_WT + Cwpd_ 3S0O_WT + Cwpd_30bye2_WT + 
Cwpd_30Oby3_WT + 
Cwpd_ 30by4_WT + Cwpd_ 30byS_WT + Cwpd_30by4_WT. 


the delingq_weight_val of delingq_info is X 
aye 

the d_60_n of d_60_ info is N_i and 

weight_per_status(delinq_60,WT_1) and 
D 60 _ WT = N_1*WT_1 and 

the d_90_n of d_90_info is N_@ and 

weight_per_status(deling_90,WT_2) and 
D_9O_WT = N_2@*WT_2 and 

the d_120_n of d_leO_info is N_3 and 

weight_per_status(deling_120,WT_3) and 
D_120_ WT = N_3*WT_3 and 

the d_150_n of d_150_info is N_4 and 

weight_per_status(deling_150,WT_4) and 
D_150_WT = N_4*#WT_4 and 

the d_180_n of d_180O_info is N_S and 

weight _per_status(deling_1i80,WT_5) and 
D_180_WT = N_S*WT_S and 

X = D_60_WT + D_9O0_WT + D_120 WT + D_150 WT + D_180_wWT. 


the cur_was_weight_val of cur_was_info is X 
ae 
the c_w_60_n of c_w_S0_info is N_1 and 
weight_per_status(c_w_60,WT_1) and 
C_w_60_ WT = N_1*WT_1 and 
the c_w_?0_n of c_w_90_info is N_@ and 
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weight_per_status(c_w_90,WT_@) and 
C_w_90_WT = N_2@*WT_2 and 

the c_w_120_n of c_w_120_info is N_3 and 

weight_per_status(c_w_120,WT_3) and 
C_w_120_WT = N_3*WT_3 and 

the c_w_150_n of c_w_150_infa is N_4& and 

weight_per_status(c_w_150,WT_4) and 
C_w_150_WT = N_4*WT_4 and 

ie cowl sOum of c_wWwllSO_into is N_S and 

weight_per_status(c_w_180;,WT_5) and 
C_w_180_WT = N_S*WT_5 and 

he Ewe sO WT + © w FO WI + EG w_120_ WT + 
EewetoOlnWwt + EC wllecunn. 


the pdbydlr_weight_val of pdbydlr_info is X 
if the pdbydir_n of pdbydlr_info is N_1 and 


weight_per_status(pdbyd1lr,WT_1) and 
X = N_1i*WT_1. 


the coll_acct_weight_val of coll_acct_info is X 
if 

the coll_acct_n of- coll_acct_info is N and 

weight_per_status(coll_acct,WT) and 

X = N#¥WT. 


the charge_off_weight_val of charge_off_info is X 
Ae : 

the charge_off_n af charge_off_info is N and 
weight_per_status(charge_off;WT) and 

X = N*¥WT. 


the inq_weight_val of inquiry_info is X 
TAP 

the no_of_inq of inquiry_info is N and 

weight_per_status(inquiry;sWT) and 

X = NWT. 


the curr_acct_n_weight_val of superpayer_info 15 X 
ti 

the curr_acct_n of superpayer_info is N and 
weight_per_status(curr_acct;,WT) and 

X = N*wT. 

the superpayer_weight_val of superpayer_info is X 

ib 9 

the monthly_payment of the Superpayer_info is E and 


il aS 


the monthly_income of the personal_info is I and 
—E > I and weight_for_superpayer(X). 


the superpayer_weight_val of superpayer_info is X 
if 

the monthly_payment of the superpayer_info is E and 
the monthly_income of the personal_info is I and 

E < I and 

X = 0. 


monthly_payment of superpayer_infa is E 
tat 

ssn of personal_info is SSN and 

compute_total_monthly_payment(SSN;E). 


monthly_income of personal_info is I 
if 

ssn of personal_info is SSN and 

compute _discretionary_income(SSN,1). 


the insclaim_weight_val of insclaim_info is X 
ety 

the insclaim_n of insclaim_info is N_1 and 

weight_per_status(insclaim,WT_1) and 

X = N_1*WT_1. 


the notpdaa_weight_val of notpdaa_info is X 
ty 
the notpdaa_n of notpdaa_info is N_1i and 
weight_per_status(notpdaa,WT_1) and 
x = N_i*WT_1. 


the volnrepo_weight_val of volnrepo_info is X 
AP 
the volnrepo_n of volnrepo_info is N_1 and 
weight per_status(volnrepo,WT_1) and 
Xx = N_1L#*WT_1.. 


ae RIDE Els WANs (TAXONOMY) How the knowledge is 
represented*/ 
type weight_pt_info = role. 


type cut_off_info = role. 
type customer _profile_info = role. 
type superpayer_info = role. 
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type Bankrupt_info = role. 
type currency_info = role. 
type bk_already_info = role. 


type trw_info = role. 
type individual_info 


role. 
type conclusion_info = role. 


type personal_info = role. 

type inquiry_info = role. 

type weight _pt_val = 

Cextremely_low;svery_low,low,moderately_high; 
high,very_high,extremely_high,alarmingly_highj. 


type pb_cut_off_val = numeric. 

type extremely_high_cut_off_val = numeric. 
type very_high_cut_off_val = numeric. 

type high_cut_off_val = numeric. 

type moderately_high_cut_off_val = numeric. 
type low_cut_off_val = numeric. 

type very_low_cut_off_val = numeric. 

type extremely_low_cut_off_val = numeric. 
type monthly_payment = numeric. 

type monthly_income = numeric. 

type ssn = numeric. 

type sal_step = numeric. 

type zip = numeric. 

type m_status = [Csinglesmarried,divorced]. 
type dob = numeric. 


type concluded = 
Ctoo_many_accts;,superpayer,normal,satisfactory; 
poor;,very_poor,serious; 
critical,potential_bankrupt,very_criticall. 

type curr_acct_n = numeric. 

type curr_acct_n_weight_val = numeric. 

type cur_was_vals = (60,90,120,150.,180,for,colj. type 


paid vals = 
[90,120,;150,180,collacs;repo,chgoff,foreclo,bydleri. 


type deling_vals = (60,970,120,150,180]. 

type delinq_was_vals = [90,120]. 

type bk_vals = 
Cbk 7_file.,bk_7_dise;,bk_7_dism;6k_11_file, 
Beet i disc,bk_il dism,ok_13_ file,bk _13_dism, 
Be 13 comp,not_bankruptd. 


it eed 


type 


type 
type 
type 


type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 


conc_bank = [Cbk_red,bk_green;sbk_yellow;bk_orange]. 


curr_acct_info = role. 
cur_was_info = role. 
deling_info = role. 


paid _info = role. 

coll _acct_info = role. 

x 3O_day_del_info = role. 
pd_coll_ac_info = role. 
charge_off_info role. 
bk_lig_reo_info = role. 
foreclosure_info = role. 
judgqment_info = role. 
repo_info = role. 
pdbydir_info = role. 
no_of_ing = numeric. 
c_w_60_info = role. 


c_w_?70_info role. 
c_w_120_info = role. 
c_w_150_info = role. 
c_w_180_info = role. 
c_w_60_n = numeric. 
c_w_60_a = numeric. 
c_w_?90_n = numeric. 
c_w_90_a = numeric. 
c_w_120_n = numeric. 
c_w_120_a = numeric. 
c_w_150_n = numeric. 
c_w_150_a = numeric. 
c_w_180_n = numeric. 
c_w_180_a = numeric. 
d_60_ info = role. 
d_90_info = role. 


d_120_info = role. 


gd_150_info = role. 
d_180_info = role. 
qd 60_n = numeric. 
d_60_a = numeric. 

qd 70_n = numeric. 
d_90_a = numeric. 
d_120_n = numeric. 
d_120_a = numeric. 
d_150_n = numeric. 
d_150_a = numeric. 
d_180_n = numeric. 
d_180_a = numeric 
pdbydir_n = numeric. 
pdbydlir_a = numeric. 


Lee 


type cebt_ 


e Tey oGatle = mnime~g.c. 
tyee bk_lia 


ua 

_reo_n = numeric. 

Eycle’ coll sect _n = niferic. 

type coll _acct_a = numeric. 

type x_30_cay_del_n = numeric. 

tvpe x_30_cday_cdel_a = numeric. 

eyoe eCirr Scct_n = numeric. 

type cveralli_weignmt_val = numeric. 

t¥es eueblic_record_val = numeric. 

type private _recora_val = numeric. 

tyee set _ of _Bkrpts_ amet: @Qans weignt_val = numeric. 

tvpe set_or_misc oublic_items _weight_val = numeric. 

tvpe set of _current_and_paid_accts_weight_val 
numeric. 

type set_or_deling_accts_weight_val = numeric. 

type set_of_misc _private_items_weignt_val = numeric. 

type celing_weignt_val = numeric. 

type cCur_wasS_weiagnt_val = numeric. 

type coll_acct_weight_val = numeric. 

type od _ coil_acon = numeric. 

type pa_coll_ac_a = numeric. 

ctype pa_coll_ac_weignt_val = numeric. 

tvoe charge_off_n = numeric. 

Sype charge_ovf_a = numeric. 

tvpe charge _ off_weight_val = numeric. 

sype ing_weight_val = numeric. 

type superpayer _weight_val = numeric. 

Eye WeCcetectirs woNtghire val = numeric. 

type judgment _weight_val = numeric. 

type repo_weignt_val = numeric. 

tvpe pdbydlr_weight_val = numeric. 

type insclaim_into = role. 

type insclaim_n = numeric. 

type insclarm_a = nwemeric. 

tvpe insclaim_weignht_val = numeric. 

type notoadaa_into = role. 

type notpdaa_n = numeric. 

tyoe notpdaa_@ = numeric. 

type notpdaa weignt_val = numeric. 

type vcinrena_info = role. 

tvpe volnrepo_n = numeric. 

tY¥pe volinreno_a = mumeric. 

tvee volnrepo_weiagnt_val = numeric. 

type cwpc weignt_val = numeric. 

type curwasod into = role. 

tyo2 cwoec_intfo = role. 

type cwod 30_info = role. 

type cwpd _ S30nye_inro role. 

type cwnd 30by3_info = role. 


Ml 
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type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 


cwpd 30by4_info 
cwpd 30byS3_info 
cwpd_ 30by6é_info 
cwpd_n = numeri 
Cwpd_a = numeri 
cwpd_30_n = num 
cwpd_30_a num 
cwpd 30bye_n = 

cwpd_ 30by2_a 
cwpd 30by3_n 
cwpd_ 30by3_a 
cwpd 30by4_n 
cwpd 30by4_a 
cwpd_30by3_n 
cwpd 30by53_a 
cwpd 30byé_n 
cwpd 30by4_a 
accpd weight_va 
accpd_info = ro 
accpd_ 30_info 


role. 
role. 
role. 


ee 
Gc 

eric. 

eric. 
numeric. 
numeric. 
numeric. 
numeric. 
numeric. 
numeric. 
numeric. 
numeric. 
numeric. 
numeric. 

1 = numeric. 
le. 

role. 


accpd_ 30bye_info = role. 
accpd 30by3_info = role. 
accpd 30by4_info = role. 
accpd_ 30byS5_info = role. 
accpd 30by6_info = role. 
accpd_30_n = numeric. 


accpd_30_a 
accpd_ 30bye_n 


numeric. 


numeric. 


accpd 30by2_a = numeric. 
accpd 30by3_n = numeric. 
accpd 30by3_a = numeric. 
accpd_ 30by4_n = numeric. 
accpd 30by4_a = numeric. 


accpd 30by5_n 
accpd 30by53_a 


"ou 


numeric. 
numeric. 


accpd 30by6_n numeric. 
accpd 30by6_a = numeric. 
pacc wpd_info = role. 
pacc_wpd_30_info = role. 
pacc wpd 30bye23_info = role. 
pacc_wpd_30by4_info = role. 
pacc_wpd 30byS_info = role. 
pacc _wpd_ 30byé6_info = role. 


pacc_wpd_30_n = numeric. 
Pacc wpd_ 30 a numeric. 


pacc_wpd_30by23_n = numeric. 
pacc wpd 30bye3_a = numeric. 
Ppacc_wpd_30by4_n = numeric. 


pacc_wpd_30by4_a numeric. 
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type pacc_wpd_30byS5_n = numeric. 
type pacc_wpd_ 30byS_a = numeric. 
type pacc_wpd_30by6_n = numeric. 
type pacc_wpd_ 30by6_a = numeric. 
type pacc_wpd_weight_val = numeric. 
type suit_info = role. 

type suit_n = numeric. 

type Suit_a = numeric. 

type suit_weight_val = numeric. 
type pacc_wdel_info = role. 

type pacc _wdeldSO0_info = role. 
type pacc _wdel?0_info = role. 


type pacc_wdell20_info = role. 

type pacc_wdel150_info = role. 

type pacc_wdel180_info = role. 

type pacc_wdelS0_n = numeric. 

type pacc_wdelé0_a numeric. 

type pacc_wdel90_n numeric. 

type pacc_wdel90_a = numeric. 

type pacc_wdel1l20_n numeric. 

type pacc_wdelle0_a numeric. 

type pacc_wdel150_n numeric. 

type pacc_wdel150_a numeric. 

type pacc_wdel180_n = numeric. 

type pacc_wdel180_a = numeric. 

type pacc_wdel _ weight_val = numeric. 
type pd_repo_info = role. 

type pd_repo_n = numeric. 

type pd_repo_a = numeric. 

type pd repo _weight_val = numeric. 
type Sdleno att into = role. 

type pd _chg_off_n = numeric. 

type pd_chg_off_a = numeric. 

type pd _chg_off_weight_val = numeric. 
type pd foreclo_info = role. 

type pd _foreclo_n = numeric. 

type pd_foreclo_a = numeric. 

type pd _foreclo_weight_val = numeric. 
type bkligreo_info = role. 

type bkliqreo_n = numeric. 

type bkliqreo_a = numeric. 

type bkliqreo weight_val = numeric. 
type settled_info = role. 

type settled _n = numeric. 

type settled_a numeric. 

type settled weight_val = numeric. 
type bk_adj_pln_info = role. 

type bk_adj_pln_n = numeric. 


i) 
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type bk_adj pln_a = numeric. 

type bk_adj_pln_weight_val = numeric. 
type scni_nwloc_info = role. 

type scnl_nwloc_n = numeric. 

type scnl_nwloc_a = numeric. 

type scnl_nwloc_weight_val = numeric. 
type co _now_pay_info = role. 

type co_now_Pay_n = numeric. 

type CcoO_nOW_Pay_a = numeric. 

type co_now_Ppay_weight_val = numeric. 
type fore_proc_info = role. 

type tore proc _n = numeric. 

type tore_proc_a = numeric. 

type fore_proc_weight_val = numeric. 
type gov_claim_info = role. 

type gov_claim_n = numeric. 

type gov_claim_a = numeric. 

type gov_claim_weight_val = numeric. 
type clase _np_aa_info = role. 

type close np_aa_n = numeric. 

type close _np_aa_a = numeric. 

type close_np_aa_weight_val = numeric. 
type scnl_info = role. 

type scnl_n = numeric. 

type scnl_a = numeric. 

type scnl_weight_val = numeric. 

type ted_tax_ln_info = role. 

type fed_tax_In_n = numeric. 

type fed_tax_ln_a = numeric. 

type fed_tax_Iln_weight_val = numeric. 
type fed_tax_rel_info = role. 

type fed _tax_rel_n = numeric. 

type fed_tax_rel_a = numeric. 

type fed_tax_rel_weight_val = numeric. 
type judgmt_sat_info = role. 

type judgmt_sat_n = numeric. 

type judgmt_sat_a = numeric. 

type judgmt_sat_weight_val = numeric. 
type judg _vacat_info = role. 

type judg _vacat_n = numeric. 

type judg_vacat_a = numeric. 

type judg vacat_weight_val = numeric. 
type mech_lien_info = role. 

type mech_lien_n = numeric. 

type mech_lien_a = numeric. 

type mech_lien_weight_val = numeric. 
type mech_rele_info = role. 

type mech_rele_n = numeric. 
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type 
type 
vyoS 
tvpe 
tyobe 
type 
type 
tyoe 
type 
type 
tybe 
type 
type 
type 
type 
type 
tyce 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
tyce 
type 
type 
type 
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rt 
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< 
VUuUUD ODD 
ww 


mo 0 


Acdaaa aH 
<@ << Se 
0D 

© w 


ey 
type 


ia) 
ui 


meen _ Tele ls = ntwmemie. 

mecn rele_weignht_val = numeric. 
mma fil intro = yole. 

am mt@_fil_n = numeric. 
mn_MtG_Til_a numeric. 
mn_mtg_fil_weight_val = numeric 
nNt_rescon_into = role. 
nt_respon_n = numeric. 
nt_rescon_a = numeric. 
nt_respon_weignht_val = numeric. 


Stat_tx_Iin_inTo = role. 
Sstat_tx_In_n = numeric. 
Stat_txsin_a = nu@eric. 
stat_tx_In_weignt_val = numeric 
Sta_tx_rel_info = role. 


sta_tx_rel_n = numeric. 
Sta_tx_rei_a = numeric. 
Sta_tx_rel_weight_val = numeri 
Suit_dismd_info = rote. 
Suit_dismd_n = numeric. 
SuUlt_Gismcg_a = numeric. 

Suit _dismd_weight_val = numeric 
wage _asign_info = role. 

wage asigqn_n = numeric. 

wage _asigqn_a = numeric. 
waGe_asign_weight_val = numeric 
wa_release_info = role. 

wa release_n = numeric. 

wa release _a = numeric. 
wa_release _ weignt_val = numeric 
refinanced_into = role. 
retinanced_n = numeric. 
refinanced_& = numeric. 
refinanced_weiant_val = numeric 
eagucenlosta sng oO — Bole. 

ey e¢ Mest n = WiMeric. 


n 


er_cd _lost_a = numeric. 

Er_e€¢ lost _weigmt_val = numeric 
Ewlosw ines was = Role 

rnac n = numeric. 

clos_inac_a = numeric. 


as 
clos_inac_weignt_val = numeric. 
transteres into = 
transfered nn = numeric. 
transfered a numeric. 
transfered weight_val = numeric 
too _rew_rt_intfo = role. 

TOO _New_rt_n = numeric. 
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type too_new_rt_a = numeric. 

type too_new_rt_weight_val = numeric. 
type paid satis_info = role. 

type paid _ satis_n = numeric. 

type paid satis_a = numeric. 

type paid_satis_weight_val = numeric. 
type paid _acct_info = role. 

type paid _acct_n = numeric. 

type paid_acct_a = numeric. 

type paid acct_weight_val = numeric. 
type cr_In_clos_info = role. 

Eype cr_In_clos_n = numeric. 

type cr_Iln_clos_a = numeric. 

type cr_In_clos_weight_val = numeric. 
type deceased info = role. 

type deceased n = numeric. 

type deceased _ a = numeric. 

type deceased _weight_val = numeric. 
type redmd_repo_info = role. 

type redmd_repo_n = numeric. 

type redmd_repo_a = numeric. 

type redmd repo _weight_val = numeric. 
type cur_was_col_info = role. 

type cur_was_col_n = numeric. 

type cur_was_col_a = numeric. 

type cur_was_col_weight_val = numeric. 
type cr_In_rnst_info = role. 

type cr_In_rnst_n = numeric. 

type cr_In_rnst_a = numeric. 

type cr_In_rnst_weight_val = numeric. 
type cur_was_for_info = role. 

type cur_was_for_n = numeric. 

type cur_was_for_a = numeric. 


type cur_was_ for_weight_val = numeric. 


type pd_not_aa_info = role. 

type pd_not_aa_n = numeric. 

type pd_not_aa_a = numeric. 

type pd_not_aa_weight_val = numeric. 
type city_tx_Iln_info = role. 

type city_tx_In_n = numeric. 

type city_tx_ln_a = numeric. 

type city_tx_In_weight_val = numeric. 
type city_tx_rel_info = role. 

type city_tx_rel_n = numeric. 

type city_tx_rel_a = numeric. 

type city_tx_rel_weight_val = numeric. 


els) 


type consel_ser_info = role. 

type consel_ser_n = numeric. 

type consel _ser_a = numeric. 

type consel_ser_weight_val = numeric. 
type co_tax_In_info = role. 

type co_tax_In_n = numeric. 

type co_tax_ln_a = numeric. 

type co_tax_In_weignt_val = numeric. 
type co_tax_rel_info = role. 

type co_tax_rel_on = numeric. 

type co_tax_rel_a = numeric. 

type co_tax_rel_weight_val = numeric. 


define Orimitive perserec with 


customer _profile_info = customer_profile and 
superpayer_info = superpayer and 
bankrupt_info = Bankrupt and 

welight_pt_info = weight_pt and 

Gut _off ante = cut_eff and 

conclusion_info = conclusion. 


define primitive customer_protile with 
personal_info = personal and 
trw_info = trw. 


cefine primitive superpayer with 
debt equity_ratio = (0,3) and 
ecurr_acet_n = (0,100) and 
curr_acct_n_weight_val = (0,;1000) and 
monthly_payment = (0;20000) and 
superpayer _weight_val = (0,1000). 


define primitive bankrupt with 
conc _bank = Cbk_red,bk_green;,bk_yellow,bBbk_orangej. 


define primitive weight_pt with 

weloht pt_val = 
Lextremely_low,svery_low,low,moderately_highs 
nhigh,very_high,extremely_high,alarmingly_high]. 


detine primitive cut_off with 


per emt oft val = (399,401) and 
extremely_high_cut_off_val = (200,250) and 
very_high_cut_off_val = (170,199) and 
high_cut_off_val = (120,149) and 
moderately_high_cut_off_val = (100,119) and 
low_cut_off_val = (80,99) and 
very_low_cut_off_val = (40,59) and 
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extremely_low_cut_off_val = (0,39). 


define primitive conclusion with 
concluded = 
[toa0_many_accts,superpayer ,normal,satisfactory; 
poor;very_poor,serious; 
critical,potential bankruptsvery_critical] 


and 
overall _weight_val = (0,10000) and 
public record _val = (0,10000) and 
private_record_val = (0,10000) and 


set_of_bkrpts_and_liens_weight_val = 
(0,10000) and 

set_of_misc_public_items_weight_val = 
(0,;10000) and 

set_of_current_and_paid_accts_weight_val = 
(0,10000) and 


set_of_delingq_accts_weight_val = (0,10000) 
and 

set_of_misc_private_items_weight_val = 
(0,10000). 


define primitive personal with 
ssn = (1,999999999) and 
Zip = (10000;99999) and 
m_ status = Csingle;,married;,divorced] and 
dob = (1900,1986) and 
monthly _income = (0,20000). 


define primitive trw with 
curr_acct_info = curr_acct and 
cur_was_info = cCur_was and 
deling_info = deling and 
pdbydlr_info = pdbydlr and 
coll_acct_info = coll_acct and 
*_ 30_day_del_info = x_30_day_del and 
Bbk_liq_reo_info = bk_1liq_reo and 
bk vals = 
Cok 7_file,;bk_V_disc;bk_7_dism,bk_11_file,bk_11_ disc, 
bk _1Ll_dismspk lS _file;bk 13 dismsbhe ls leom-— 
p»snot_bankrupt] 


and 

pd_coll_ac_info = pd_coll_ac and 
charge _ off_info = charge_off and 
foreclosure_info = foreclosure and 
judgment_info = judgment and 
repo_info = repo and 

inquiry_info = inquiry and 
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insclaim_info = insclaim and 


notpdaa_info = notpdaa and 
volnrepo_info = volnrepo and 
Curwaspd_ info = curwaspd and 
accpd_info = accpd and 

pacc_ wpd_info = pacc_wpd and 
suit_info = suit and 
pd_repo_info = pd_repo and 
pd_chg_off_info = pd_chg_off and 
pd_foreclo_info = pd_foreclo and 
bkliqreo_info = bkliqreo and 
pacc_wdel_info = pacc_wdel and 


settled info = settled and 
bk_adj_pln_info = bk_adj_pln and 


scnl_nwloc_info = scnl_nwloc and 
cO_noW_Pay_info = coO_noW_Pay and 
Ffore_proc_info = fore_proc and 
gov_claim_info = gov_claim and 
close_np_aa_info = close_np_aa and 
scnl_info = scnl and 
fed _tax_ln_info = fed_tax_Iln and 
fed_tax_rel_info = fed_tax_rel and 
judgmt_sat_info = judgmt_sat and 
judg_vacat_info = judg_vacat and 
mech_lien_info = mech_lien and 
mech_rele_info = mech_rele and 
mn_mtg_fil_info = mn_mtg_fil and 
nt_respon_info = nt_respon and 
stat_tx_In_info = stat_tx_In and 
sta_tx_rel_info = sta_tx_rel and 
Sult_dismd_info = suit_dismd and 
wage _asign_infoa = wage_asign and 
wa_release_ info = wa_release and 
refinanced info = refinanced and 
cr_cd_lost_info = cr_cd_lost and 
clos_inac_info = clos_inac and 
transfered_info = transfered and 
too new_rt_info = too_new_rt and 
paid satis_info = paid satis and 
Paid _acct_info = paid_acct and 
Celie los mi mie. — Cree lnc kasw ame 
deceased info = deceased and 
redmd_repo_info = redmd_repo and 
cur_was_col_info = cur_was_col and 
Swe mMeacnstlinto = Er in_rmst sane 
cur_was_for_info = cur_was_for and 
pd_not_aa_info = pd_not_aa and 
Grtyetx In_into = erty tx _In and 


Gutyecx rel info = city _tx_rel and 
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consel_ser_info = consel_ser and 
co_tax_Iln_info = co_tax_In and 
co_tax_rel_info = co_tax_rel. 


define primitive pacc_wdel with 
pacc _wdel60_info = pacce_wdelds0 and 
pacc_wdel90_info = pacc_wdel90 and 
pacc_wdelleO_info = pacc_wdeli2oO and 
pacc_wdelisSO_info = pacc_wdeliSo and 
pacc_wdel1l80_info = pacc_wdel180 and 
pacc_wdel_weight_val = (0,1000). 


define primitive pacc wdeldO with 
Pacc_wdel46é0_n = (0,100) and 
Ppacc_wdel60_a = (0,10000). 


define primitive pacc_ wdel90 with 
Pacc_wdel90_n = (0;100) and 
pace _wdel90_a = (0,10000). 


define primitive pacc_wdeliedO with 
pacc wdellt2@0_n = (0,100) and 
pace _wdelieO_ a = (0,10000). 


define primitive pacc wdeli5oO with 
pacc_wdel1S50_n = (0,100) and 
pacc_wdeliS0O_a = (0,10000). 


define primitive pacc_wdel1i80O with 
pacc_wdeli8O_n = (0,100) and 
Pacc wdeli80_a = (0;10000). 


define primitive suit with 


suirt_n = (0,100) and 
Sulit a = (0,;10000) and 
suit_weight_val = (0,1000). 


define primitive cur_was with 
c_w_60_infoa = c_w_&0 and 
c_w_?0_info = c_w_90 and 
c_w_1l2O0_info = c_w_120 and 


il eye 


C_w_150_info = c_w_150 and 
c_w_180_info = c_w_180 and 
cur_was weight_val = (0,1000). 


define primitive c_w_60 with 
c_w_S0_n = (0,100) and 
c_w_60_a = (0,10000). 


define primitive c_w_90 with 
c_w_90_n = (0,100) and 
c_w_90_a = (0,;10000). 


define primitive c_w_120 with 
c_w_1e20_n = (0,100) and 
c_w_120_a = (0,10000). 


define primitive c_w_150 with 
c_w_150_n = (0,100) and 
c_w_150_a (0,10000). 


define primitive c_w_180 with 
c_w_180_n = (0,100) and 


c_w_180_a = (0,10000). 


detine primitive deling with 
d_ 60_info = d_&60 and 
d_90_info = d_90 and 
d_120_info = d_120 and 
del sOninto, — delsOvenc 
d_180_info = d_180 and 
deling weight_val = (00,1000). 


define primitive d_60 with 
d 60 _n = (05,100) and 
d 60 _a = (0,10000). 


define primitive d_90 with 
gd 90_n = (0,100) and 
d 90_a = (0,10000). 


define primitive d_1e0 with 
d_ 120_n = (90,100) and 
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d_120_a = (0,10000). 


define primitive d_150 with 
d_ 150_n = (0,100) and 
d_150_a = (0,10000). 


detine primitive d_180 with 
d 180 n = (0,100) and 
d_i180_a = (0,10000). 


define primitive coll_acct with 
coll_acct_n = (0,100) and 
coll_acct_a (0,10000) and 
coll _acct_weight_val = (0;1000). 


define primitive x_30_day_del with 
x _ 30_day_del_n (0,100) and 
x_ 30_day_del_a = (0,10000). 


define primitive Bk_ligq_reo with 
bk liq _rea_n = (0,100). 


define primitive curr_acct with 
furr_acct_n = (0,100). 


define primitive pd_coll_ac with 


pd_coll_ac_n = (0,100) and 

pd_coll_ac_a = (0;10000) and 

Pd_coll_ac_weight_val = (0,1000). 
define primitive charge_off with 

charge_off_n = (0,100) and 

charge off_a = (0,;10000) and 

charge_off_weight_val = (0;1000). 
define primitive inquiry with 

no of _inq = (0,100) and 

inq_weight_val = (0,1000). 


detine primitive foreclosure with 
foreclosure _weight_val = (0,1000). 


define primitive judgment with 
judgment _weight_val = (0,;1000). 
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define primitive repo with 
repo _weight_val = (0,1000). 


cefine primitive pdbydlr with 


pdbydlr_n = (0,100) and 
pPdbydlr_a = (0,100000) and 
pdbydir_weight_val = (00,1000). 


ceftine primitive insclaim with 


insclaim_n = (0,100) and 
insclaim_a = (0;100000) and 
insclaim_weight_val = (00,1000). 


Gefine primitive notpdaa with 
notodaa_n = (0,100) and 
notodaa_a = (0,;100000) and 
notpodaa_ weight_val = (00,1000). 


define primitive volnrepo with 


volnrepo_n = (0,100) and 
volnrepo_a = (0,;100000) and 
volnrepo_weight_val = (0,1000). 


derine primitive curwaspd with 
cwod_info = cwod and 
cwpd 30_info = cwpd_30 and 
Ccwod 30bye_info = cwpd_30bye and 
Ccwed 30by3_info = cwpd_30by3 and 
cwAd 30by4_info = cwpad_ 30by4 and 
cwpd 30byS_info = cwpd_30by5 and 
Cwoed 30by6_into = cwpd_ 30by4 and 
cwpd weight_val (O0,1000). 


define primitive cwpd with 
cwpd n = (0,100) and 
cwpad_a = (0,10000). 


define primitive cwpd_30 with 
cwod 30_n = (05,100) and 
cwod_ 30_a = (90,10000). 


cgefine primitive cwopd 306ye with 
cwpd 30bye_n = (0,100) and 
cwad 30bye_a = (0,10000). 


define orimitive cwad_30by3 with 
cwed 30by3_n = (0,100) and 


cwod 30by3_a = (0,;10000). 


define primitive cwpd_30by4 with 
cwpd 30by4_n = (0,100) and 
cwpd 30by4_a = (0;10000). 


define primitive cwpd_ 30bys with 
cwpd 3ObyS_n = (0,100) and 
cwpd 30byS5_a = (0;10000). 


define primitive cwpd_ 30by46 with 
cwpd 30by6_n = (0;100) and 
cwpd 30by6_a = (0,;10000). 


define primitive accpd with 
accpd 30_info = accpd_30 and 
accpd 30bye_info = accpd_30by2 
accpd 30by3_info = accpd_30by3 
accpd 30by4_info = accpd 30by4 
accpd 30byS_info = accpd_30byS 
accpd 30by6_info = accpd_ 30by4 
accpd weight_val = (0;1000). 


define primitive accpd_ 30 with 
accpd 30_n = (0,100) and 
accpd 30_a (0,10000). 


define primitive accpd 30bye with 
accpd 30bye_n = (0,100) and 


accpd 30bye_a = (0,10000). 


define primitive accpd 30by3 with 
accpd 30by3_n = (0,100) and 


accpd 30by3_a = (0,10000). 


define primitive accpd 30by4 with 
accpd_30by4_n = (0,100) and 
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and 
and 
and 
and 
and 


accod 30by4_a = (0,10000). 


Seeine Primitive acepd S0pys with 
accpd 30by5_n (0,100) and 
accepd 30byS_a = (0;10000). 


i 


define primitive accpd 30by4 with 
acced 30by6_n = (0,100) and 
accpd 30by6_a = (0,10000). 


define primitive pacc_wpd with 
pacc_wpd_ 30_info = pacc_wpAd_30 and 
pacc wpd_ 30bye3_info = pacc_wpd 30bye3 and 
pacc wed 30by4_info = pacc _wpad_ 30by4 and 
DaccmVupGesOD yo) Imo pacc_wped_30by5 and 
Pacc _wpd 30by4_info Pacc_wpd 30by6 and 
pacc _wpd_weight_val (O,1000). 


define primitive pacc_wpad_30 with 
pacc wped_30_n = (0,100) and 
Ppacc _wpd_ 30_a = (0;10000). 


define primitive pacc wpd 30by2ea3 with 
Pacc_wpd 30bye3_n = (0,100) and 
Pacc_wod 30bye3_a (O0,;10000). 


define primitive pacc_wpd_30by4 with 
Pacc wed 30by4_n = (0;100) and 
pacc _wpad 30by4_a = (0;,;10000). 


define primitive pacc_ wed _ 30by5 with 
pace wpd 30byS5_n = (0,100) and 
pacc wod_30byS5_a = (0,10000). 


define primitive pacc_wpd 30by6 with 
pacc _wpd_30by6_n = (0,100) and 
pacc _wpad 30byé_a = (0,10000). 


define primitive pd _ repo with 
pd_repo_n = (0,100) and 
pd_repo_a = (0,10000) and 


Sy, 


pd repo _weight_val = (0,;1000). 


define primitive pd_chg_off with 
pd chg_off_n = (0,100) and 


pd _ cha_off_a = (0,;10000) and 
pd_chg_off_weight_val = (0,;1000). 


define primitive pd foreclo with 
pd_foreclo_n = (0,100) and 


pd_foreclo_a = (0;,;10000) and 
pd _foreclo_weight_val = (00,1000). 


define primitive bBkligqreo with 
bkligqreo_n = (0,100) and 


bkliqreo_a = (0;10000) and 
bkligqreo_weiqght_val = (0;1000). 


define primitive settled with 
settled _n = (0;100) and 
settled_a = (0,10000) and 
settled weight_val = (0;1000). 


define primitive bk_adj_ pln with 
bk adj _pln_n = (0,100) and 
bk _ adj_pln_a = (0,10000) and 
bk _adj_pln_weight_val = (0,1000). 


define primitive scnl_nwloc with 
scnl_nwloc_n = (0,100) and 
scnl_nwloc_a = (0,10000) and 
scnl_nwloc_weight_val = (0,1000). 


define primitive co_now_pay with 


co _now_pay_n = (0,100) and 
co _ now_pay_a = (0,10000) and 
coO_now_pay_weight_val = (0,1000). 


define primitive fore proc with 
fore _proc_n = (0,100) and 
fore_proc_a = (0;10000) and 
fore _ proc _weight_val = (0,1000). 
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define primitive gov_claim with 


gov_claim_n = (0,100) and 
gov_claim_a = (0,10000) and 
gov_claim_weight_val = (0,1000). 
define primitive close np_aa with 
close np_aa_n = (0,100) and 
close_np_aa_a = (0,10000) and 
close_np_aa_weight_val = (0,1000). 


define primitive scnl with 


scnl_n = (0,100) and 
scnl_a = (0,10000) and 
scnl_weight_val = (0,1000). 


define primitive fed _tax_In with 


fed_tax_In_n = (0,100) and 
fed _tax_In_a = (0,10000) and 
ted_tax_ln_weight_val = (0,1000). 


define primitive fed _tax_rel with 


ted_tax_rel_n = (0,100) and 
fed _tax_rel_a = (0,10000) and 
fed _tax_rel_weight_val = (00,1000). 


define primitive judgmt_sat with 
judgmt_sat_n = (0,100) and 
judgmt_sat_a = (0,10000) and 
judgmt_sat_weight_val = (0,1000). 


Gefine primitive judg_vacat with 
judg _vacat_n (0,100) and 
judg_vacat_a = (0;,;10000) and 
judg_vacat_weight_val = (00,1000). 


define primitive mech_lien with 


mech_lien_n = (0,100) and 
mech_lien_a = (0,;10000) and 
mech_lien_weight_val = (00,1000). 


define primitive mech_rele with 


mech_rele_n = (0,100) and 
mech_rele_a = (0,10000) and 
mech_rele weight_val = (90,1000). 


define primitive mn_mtg_fil with 
mn mtg_fil_n = (0,100) and 
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mn_mtg_fil_a = (0,;10000) and 


mn_mtg_fil_weight_val = (0,1000). 
define primitive nt_respon with 
nt_respon_n = (0;100) and 
nt_respon_a = (0,;10000) and 
nt_respon_weight_val = (0,1000). 
define primitive stat_tx_In with 
stat_tx_Iln_n = (0,100) and 
stat _tx_Iln_a = (0;10000) and 
stat_tx_ln_weight_val = (0;1000). 


define primitive sta_tx_rel with 
sta_tx_rel_n (0,100) and 


sta_tx_rel_a = (0,10000) and 
sta_tx_rel_weight_val = (0,1000). 
define primitive suit_dismd with 
suit_dismd_n = (0,100) and 
suit_dismd_a = (0;,;10000) and 
suit_dismd_weight_val = (0;,1000). 
define primitive wage_asign with 
wage _asign_n = (0,100) and 
wage_asign_a = (0,10000) and 
wage_asign_weight_val = (0;1000). 
detine primitive wa_release with 
wa_release_n = (0,100) and 
wa_release_a = (0,;10000) and 
wa_release weight_val = (0;1000). 


define primitive refinanced with 


refinanced _n = (0,100) and 
refinanced_a = (0,10000) and 
refinanced _weight_val = (0,1000). 


define primitive cr_cd_lost with 


er_cd_lost_n = (0,100) and 

cr_cd lost_a = (0;10000) and 

cr_cd_lost_weight_val = (0,1000). 
define primitive clos_inac with 

clos_inac_n = (0,100) and 

clos_inac_a = (0,10000) and 

clos_inac_weight_val = (0,;1000). 
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define primitive transfered with 
transfered n (0,100) and 
transfered_a = (0;10000) and 
transfered weight_val = (0,1000). 


define primitive too_new_rt with 
too new_rt_n (0,100) and 
too _new_rt_a = (0;10000) and 
too_new_rt_weight_val = (0,1000). 


derine primitive paid satis with 


paid sSsatis_n = (0,100) and 
paid _ satis_a = (0,10000) and 
paid Ssatis_weight_val = (0,1000). 


define primitive paid _acet with 


paigd_acct_n = (0;100) and 
Paid_acct_a = (0,;10000) and 
paid_acct_weight_val = (0,1000). 


define primitive cr_In_clos with 


cr_ln_clos_n = (0,100) and 
cr_ln_clos_a = (0,10000) and 
cr_Iln_clos_weight_val = (0,1000). 
define primitive deceased with 
deceased n = (0,100) and 
deceased_a = (0,10000) and 
deceased weight_val = (0,1000). 


define primitive redmd_repo with 


redmd_ repo_n = (0,100) and 
redmd_repo_a = (0,;10000) and 
redmd_repo_weight_val = (0,1000). 


define primitive cur_was_col with 


Cur _was_col_n = (0,100) and 
cur_was_col_a = (0,10000) and 
cur_was_col weight _val = (0,1000). 


define primitive cr_In_rnst with 


ecr_iln_rnst_n = (0,100) and 
cr_In_rnst_a = (0,10000) and 
cr_In_rnst_weignt_val = (0,1000). 


define primitive cur_was_for with 
cur _was_for_n = (0,100) and 
cur_was_for_a = (0;10000) and 
cur_was_for_weight_val = (00,1000). 
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detine primitive pd_not_aa with 


pd_not_aa_n = (0,100) and 
pd_not_aa_a = (0,10000) and 
pd_not_aa_weight_val = (0,1000). 


define primitive city_tx_In with 
city_tx_In_n = (0,100) and 
city_tx_In_a = (0,10000) and 
city_tx_In_weight_val = (0,1000). 


define primitive city_tx_rel with 
city_tx_rel_n = (0,100) and 
city_tx_rel_a = (0,;10000) and 
city_tx_rel_weight_val = (0,1000). 


define primitive consel_ser with 
consel _ser_n = (0,100) and 
consel_ser_a = (0,;10000) and 
consel_ser_weight_val = (90,1000). 


define primitive co_tax_In with 


co_tax_In_n = (0,100) and 
co_tax_Iln_a = (0,10000) and 
co_tax_In_weight_val = (90,1000). 


define primitive co_tax_rel with 
co_tax_rel_n = (0,100) and 
co_tax_rel_a = (0,10000) and 
co_tax_rel_weight_val = (00,1000). 
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APPENDIX B 
TRW CREDIT REMARKS 


This appendix describes the 102 credit remarks 


currently used by TRW and employed 


in MFTES. They were 


included to broaden the program’s documentation and 


facilitate future maintenance efforts. 


INQUIRY: 


eine (Ib) ILIGIS\F § 
EROSE SENAE: 
TRANSFERED: 
TOO NEW RT: 
REFINANCED: 
CURR ACCT: 


PAO) Sy Se 
PAID ACCT: 


Cire (LIN) (Gilets. 


DECEASED: 


ITEMS OF PRIVATE RECORD 


A copy of the credit profile nas been 
sent to this credit grantor at their 
request. 

Credit card lost or stolen. 


Closed inactive account. 

Account transferred to another office. 
Too new to rate. 

Account renewed or refinanced. 

This is either an open or closed account 
in good standing. If the account is a 
credit card or charge account, it should 


be available for use and there may be a 
balance due. If the account is closed, 
there were no past due amounts reported 
and it was paid. 

Closed account/paid satisfactory. 
Closed account/zero balance/not rated by 
credit grantor. 

Credit line closed/reason unknown or By 
consumer request/there may be a balance 
due. : 

Consumer deceased. 


CUR 
CUR 
CUR 
LUR 
CUR 
CUR 


CUR 


WAS 
WAS 
WAS 
WAS 
WAS 
WAS 


WAS 


JDL s 
Ors 
BOS 2s 
30-3: 
30-4: 
BOS =) 


S\iOse(S} 8 


Current 
Current 
Current 
twice. 

Current 
three ¢t 
Current 
FOP 46 x 
Current 
five ti 
Current 
times o 


account 
account 
account 


account 
imes. 
account 
mes. 
account 
mes. 
account 
r more. 


wes 


wes 


was 


wes 


Was 


wes 


was 
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past due. 


30 
30 


30 


30 


30 


30 


days 
days 


days 
days 
days 


days 


past 
past 


past 
past 
past 


past 


due. 
due 


due 


due 


due 


due s1x 


CUR 
CUR 
CUR 


WAS 
WAS 
WAS 


(yO) 3 
GG) 2 

Heo) 8 
CUR WAS 150: 
CUR WAS 180: 
RIS |OIMID) [RIEL O) ¢ 

CUR WAS COL: 
ii JUN) IRNIS Ws 
CUR WAS FOR: 
PD NOT AA: 


PD 
PD 


WAS 
WAS 


30: 
SO)=2 ¢ 


PD WAS 30-4: 


PD WAS 30-5: 


PD WAS 30+6: 


Current 
Current 
Current 
Current 
Current 
Account 
Current 


account. 


Account 


good standing. 


account 
account 
account 
account 
account 
was a 


was 
was 
was 
was 
was 


60 days delinquent. 
90 days delinquent. 
120 days delinquent. 
150 days delinquent. 
180 days delinquent. 


repossession/now redeemed. 


account was a collection 


now available for use and 
Was a closed account. 


is in 


Current account foreclosure was started. 


Paid account. 


the agreed due dates. 


Paid account/was 
Paid account/was 


times. 


Paid account/was 


times. 


Paid account/was 


times. 


Paid account/was 


pas 


times or more. 


past 
past 
past 


past 


t due 
due 


due 


due 


due 


30 
30 


30 


20 


30 


Paw, 
PD 
1D) 
PAD) 
me 
PD 


ae) 
mo) 
PD 
PD 


BK 


WAS 
WAS 
WAS 


Gor 
CXC) ¢ 
ZO) 9 
WAS 150: 
WAS 180: 
COLL AC: 


RISO) g 

(Cini (CSIP s 
FORECLO: 
IBY iOILjelrRes 


Jb) iE G)e 


Paid 
Paid 
Paid 
Paid 
Paid 
Paid 


account/was 
account/was 
account/was 
account/was 
account/was 
account/was 


delinquent 
delinquent 
delinquent 
delinquent 
delinquent 
a collectio 


Some payments made past 


days. 
days 2 or 3 


days 4 
days 5 
days 6 


60 days. 
90 days. 
120 days. 
150 days. 
180 days. 
n account 


insurance claim or education claim. 
Paid account/was a repossession. 
Paid account/was a CHARGE-OFF. 


Panic eee lima 


A foreclosure was started. 


Credit grantor paid by company who 
Originally sold the merchandise. 


Debt included 
Bankruptcy Chapt 


ie 7 Mele 1 


in or discharged through 


ele I LEI § 


Bk ADJ PLN: 
NOT 
30 
EC, 
30 
30 
30 
So 


PD AR: 
DAY DEL: 
@ Ty MES = 
3 TIMES: 
4 TIMES: 
5S TIMES: 
ey UMES s 


Account legally paid in full for less 
than the full balance. 
Debt included in or completed through 
Bankruptcy Chapter 3. 


Account not being paid as agreed. 
Account past due 30 days. 

Account past due 30 days 2 times. 
Account past due 3O days 3 times. 
Account past due 30 days 4 times. 
Account past due 30 days 5S times. 
Account past due 30 days 6 times or 
more. 
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30 WAS 640: 


DELIN@ 40: 
DEL WAS 90: 


BEEING PS Oi= 
DEL WAS 120: 


DELINQ 120: 
DEE ENG 150% 
DELIN@ 180: 
SCNL NWLOC: 
CO NOW PAY: 
FOREPROC: 

GOV CLAIM: 


CLOSE NP AA: 
INS CLAIM: 


E@EE Acer: 


FORECLOSURE : 


VOLUN REPO: 
RiBlRa)e 


CHARGE OFF: 


SCNL: 


six 7 (3 iikies 


eis, JOM SINE 


jel Shi, fe Wise 


Account was delinquent 460 days/now 30 
days. 

Account delinquent 60 days. 

Account was delinquent 90 days/now 60 
days. 

Account delinquent 970 days. 

Account was delinquent 120 days/now 30, 
SOMO OMG avisre 


~ Account delinquent 120 days. 


Account delinquent 150 days. 

Account delinquent 180 days. 

Credit grantor could not locate 
consumer /consumer now located. 

NOW payings was a charge-off. 
Foreclosure proceeding started. 

Claim filed with government for insured 
portion af balance on a loan. 

Credit line closed/not paying as agreed. 
Claim filed for payment of insured 
portion of balance. 

Account seriously past due/account 
assigned to attorney collection agency 
or credit grantor’s internal collection 
department. 

Credit grantor sold collateral to 
settle defaulted mortgage. 

Voluntary repossession. 

Merchandise was taken back By credit 
Grantor;there may be a Balance due. 
Unpaid balance reported as a loss by 
credit grantor. 

Credit grantor cannot locate consumer. 


ITEMS OF PUBLIC RECORD 


Voluntary or involuntary Petition in 
Bankruptcy. Chapter 7-(Liquidation) 
filed. 

Voluntary or involuntary Petition in 
Bankruptcy. Chapter 7-(Ligquidatian) 
discharged. 

Voluntary or involuntary Petition in 
Bankruptcy. Chapter 7-(Liquidation) 
dismissed. 

Voluntary or involuntary Petition in 
Bankruptcy. Chapter 11-(Reorganizatian) 
filed. 
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BK 1! DISe: 


she i IORSIME 


ake iS) IF LIE ¢ 


ahs GE) IOS Me 


erry wx tune 
Gly Wit ieee 
CONSE SER: 
CO TAX LN: 
CO TAX REL: 
FED TAX LN: 
Friel) Uso eile 
JUDGMENT: 
JUDGMT SAT: 
JUDG VACAT: 
MSIq) (Laine 
Mela) InielLis ¢ 
MINI GMiGee Tie: 


Ni RESPON: 


STAT TX LNs 

STAT TX REL: 
SUPT 2 

SUIT DISMD: 

WAGE ASIGN: 

W/A RELEASD: 


Voluntary or involuntary Petition in 
Bankruptcy. Chapter 11-(Reorganization) 
discharged. 

Voluntary or involuntary Petition in 
Bankruptcy Chapter 11-(Reorganizatioan) 
dismissed. 

Petition in Bankruptcy Chapter 13- 
(Adjustment of Debt) filed. 

Petition in Bankruptcy Chapter 13- 
(Adjustment of Debt) dismissed. 

City tax lien 

City tax Released 

Debt Counseling Service 

County Tax Lien 

County Tax Released 

Federal Tax Lien 

Federal Tax Released 

Judgment 

Judgment Satisfied 

Judgment Vacated or Reversed 
Mechanic’s Lien 

Mechanic’s Lien Released 

Manual Mortgage Report (if on written or 
teleprinter profile, contact your local 
TRW Information Services Office). 

Not Responsible Notice, e.q., husband or 
wife claims not responsible for debts 
incurred by the spouse. 

State Tax Lien 

State Tax Released 

Suit 

Suit Dismissed or Discontinued 

Wage Assignment 

Wage Assignment Released 
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147 


Ree 


Sr 


14. 


The Arity/Expert Development Package, ist ed.; v. 
1, ARITY CORPORATION, 1986. 


Kato, M., "14 Product Wrap-Up: Prolog for the 


People," AI Expert, v. @, no. 6, pp. 69-69; June 
LOS? . 


TRW 8022/85A, TRW Glossary of National Status 
Comments for Verbal Profiles. January 1984. 


146 


INITIAL DISTRIBUTION LIST 


Defense Technical Information Center 
Cameron Station 
Alexandria, Virginia 22304-6145 


Library, Code 0142 
Naval Postgraduate School 
Monterey, California 93943-5002 


Chief of Naval Operations 


Director, Information Systems (OQP-945) 


Navy Department 
Washington, D. C. 20350-2000 


Department Chairman, Code Se 
Department of Computer Sciences 
Naval Postgraduate School 
Monterey, California 93943-5000 


Professor T.R. Sivasankaran, Code 54SJ 


Naval Postgraduate School 
Monterey, California 93943-5000 


Major J. Isett, Code S41IS 
Naval Postgraduate School 
Monterey, California 93943-5000 


LCDR G.M.F. Salazar 


7234 W. Pasadena Ave. 
Glendale, Arizona 85303 


149 


No. 
Copies 




























thesS 15265 
An expert system to detect ae thr 





ie ae pet ay 
SE re ae geane ach 
ies: Mesa ea Sap tagls #4 
FS ae Lan sa ae eee canes h 
baht ton wees pane tint, Te pete piace een 


fe 



































| ner TTY 
Games Tare: 8 We phe | tt | WTI {| | } 

FAAS BALMS ie re sey ooh HEA: we. fT HH I 
ID ‘geese a pe aa ee ies | A HANA | {| {IM 
pea ee y ‘ R $e 

5 Res Agua ait : eae ase ! | 
nt ieee ate aertrrennr* eee ip hal ba ah A \\\ iN MTA AM | i | H 
Rrra en) by pre Feet arte ee Sra Patahe ty amy Cio nin# i] an Wil ii Hl if 
Savant oes ay FAAS LA tt Soe REAR tae aaa oer ae Wt | | iI | || | H 
rear roe ie eas ranss | akaceoal moa ape ta MULL AML AN | 
rity r Bert ser, ties i Hl | HH 





* snes rk at 
Te enraiverte oe 1 Oe er eriatate ach shay cited 
e Dobe td se Mera mint main Gopabeck 


neon Ade MoPTeer iY poiet a se aT 
chatacatattt Bon ate 
Pun ra th irae nue 












DE ots 
eae "3 2768 000 78913 5 
DUDLEY KNOX LIBRARY 








Be tle a. tahoe,” 
eto Ree coe 


atrl tgueks we aot 
eiouranye eek tatontholahPURTPhS! Ot nee A At 
ll eet ‘attgh wale 6 re ake prec, ree ENE : 
 ofih Tie, ADL A RIE WH) Ur eT ene ‘alias, 
is cart SAE ALCADD Rabe, 6 train we Deal eaten ty eh cosas 
sco Sitesi ea ea yh ntah| 2 AT AGM, of at We aioe 
sre sabre or pe A Sacan man taal ves AL en ree pertereg rere TS 
eMahtast aot AAD ROW SINK NEA ATE cbkate eee amt Alte Da Oe 
SScrenetnnce dup gncccaprtcenua queen el seemed 30:5 MrT prion = 
SS aberrant OC ara OT He See tenes aerate ge 
ard vaem? - mean btiy. BLAIR? ote Gi A 4 
re At TIT RI Trait tig Ae et i oe Anine wonky chet dl 
eS ee eee Same: Lae Chesimors kesant 09 os Lek A ahions 4 LO 
Dentianeekomtcsiane taney yeah eats df 18 2 Shpeomribeny? ei 
sa ciapeboetyeent ino erapath fs £0 ier, ame: eed fut eae a veer pata e 
eS Naty aed 8 ah apace St Martial af 



















i ee thi 8. 


eerie 
ot tr wove ty 48 FC brat’ % Seok C4 


Sercinenhnanteate 


pens~ 
east we . 





Saarbenen oot 
ree 












































Test AAs Gok be 


















ata 
nels Cada See yatin athe eM nig 3: fad Deaa pret Vinh dethter 
ae carn eator ant paritilise ahs ath aay A nals Ar tad eh HREM OES, Make vane 4: eas donee «? i— ate 
Se etanee it (VS e Eebererip nents shire) Mee ee aah wAIk taLE Aes od de Rogan rect he 2 aes . 
Spahr rt LAE NO HIP SO an nacre Fateh Hea OAR me satnpe Ja peas te i " oo 

Ere ocr Ret Pate? d 

Werke pecker kt + 1 ctaF ert ‘ 


nm att ae nae sms Sette ASA 
ia BR ck: OO PARE A: Cite 
rennet 


japeeee AN 







ah nean@ diy Sh VATBAM 9 Pring’ 
rerenentn rw | erty Yaa Erne hs 
Deen Rawk oy of © 



















rT ote 
meats ma teretpanmanss mM * bie os af oe E F 
en mate as west a Ta caused ot ARNE Le 0 ante * . : : 
LCAaaee int oath nes gare OF c 5 





Be pry haere TEM 
er tinge piofat Seni meat miner # © 14 
eam iAtepihatae> PAP ines tnet? 

Stem Mb A pach A * 








ee dplea de 
vance woot 
Crh rpnaralenieae ar tmn STATE ey te 
See reais cones ima utah yo. seme of anager! 
atte | eh RP te Fo Serer Serr at drbbeot 
Se CIA oer paians shanaraern ice MINER ATE aBianigy maar 
Lechcage chcanann mn warpnrent-smatiZennOt 1h MAE 3 sali ce Meh «OC Peicabeses * 
K CASES OPA R EN, CUR et OAR an sabe ed 5 
Dey phere weet yw Pee a ar on Ta es 
Sth ae ontte rian atm eXes sane 
epee ret an) apetteniss rests fi 4 a4) pronelres 
Ore cerben neared GbR. Patria nae Teagan 
ON Te o i Mate’ sae at 
iG -Povhartted OF hither 8 16 ay 6. Wid Be ak eS ne 





















inane f bas tat da ioe 
laest 8 Fee ee 


























stony 
perenreree ere dimonptna gorse (ob axtgt stne mange eynirtat ae JON 
Sn ene nen adrne tenn Met mealuntityeins Nonr Wiig 2 Akaka at f 
ee as Ne TMR ATT pA Tat Rn oT shania AGA 

Sir iege ron ey stint pte ad ey Re HB rt : 


Ty tent oe NR ORR RES tal Oo 

ab alos aS Ory irl ren eet age 
tate omen att 8 nat h =) VBR 

papend cio coats por coapet SOF rer eI et td 

Se epar ae phanacien a a= ah 260 9 1d ASS SHEER LSE, 

ae et anar ear tke? 9 1h Pt MEMEGE AS 8 
Talhgd dv eletog ot cd v8 Wi 


mt eae mn AENE A RMIMTO BIIPE TE A) 4 
Pets ol Cate rn 















Laelia ae Pat <O . 
part aod Le gokrig begeablutag Wt 

Se eet coat hw amet es Ose mn YAS ng 
Se tne <a a MR ners iA RM in 1 0 . : 
everest n pire t Sita Panett mn hari oat ete 
arpa e Duin ae Maer er renter oe ia 





ben yint sf tim Mp on tens yt Taligt 2a rent: 
ea eaaier bad wat en woeiey ee! tm me yam 
ee a yeat rh 


pial gm amet 





tah Plain tir oso 

















Fee Te ace col coagnens pee ad = ne Ee " 
ne eileen re ig aoc ae oead wat mpi nen Oe PEL oie ‘- 
Dp gplaed Repo nee CTT 4 caer ase 
Se ct ge gene et Pi Pee we wie feo 
aE HE IEEE Im AU aE BID sothe tia gheaewant ss mer _ 
ea RR AIO PLE HVE. re ” s 





Bets reese 
sane 





ri 
Domes hee Se 
07 nate 
sehen 

wine 
Fa henry 














one * 
tee ebahas ae en ¢ =; . * ve t 
oe ae tre a © ‘ a) oe q 



























Sas 5, 7 
at Sp erga on theres 
i Sem pen Ex = bes wee Oe TS teites 
eee soe oe Suse, cei 
— ! et St re Hives 
mee Hm Rhiodal ter Pe: ot 
greta (Digiteadaenny Sree ing eriegari 7 & 
tin ok © oe Dy itt yrs ae 
ne ees Oe Seg oe CA re | Ou ~ ve s 
Stree ee rite ial etd 
Sag pare ee gees ~ 
fot bow pee A eee 2 eh 
ene Pe ea 
2 rhe 
sieht 



































stain, Pos COGS HA 
RatgeNNead y=) Se BOY 
mir hawt eae a watson 

mine Re Ula die EN 








stewed Fae 
my eT 
Tarte funn Maranon 
a eek ott ea 
apart» elyrase att 
ett wie UN wanes © oS 
Pence, a Ws ORAL OF PWRON 19 
Eh al hae th ea be oie 
Pat rome Ae ale 
So 4s a clpenroiey: ote BM IVEY Y9 
cam her re era Harp cu, 
eG ie 8 











I 
Sn ied tn bce 
Sree ee 
ayaa Lenten Lh. 












vena! " - 
coerpesa a See AL TY 


gf eae eye oe “het cade i 


oar | 
ae ara, Wont WUD nae Sd SP e" ED fanart Rt ant 
mer ecgg ar giuutar we amreseD OY wick CONTI ELIFOUE UB EW SEED a maT Cy WUE 
poner ® Sper wierd Bowy Yee ie PY RED VOCE a ITYs eoe eT a ireereae ess at wg io 
embry yee ERG RMS OGeT a et at ai ak hes og nla we 
Rr cererey Sean rens BPE Sy AUTO e erage baw gigs | Eo CevPUTeP BIN wee ey 
Siptate 3 cement Rhy emai Aree AN Sot 1 murw weed OW eee 
Pe cangs Kidbiensy eats. mereey ct me as creeper versie yee ey T ‘ . : 
cpa aren ye meee Phase sr teswesrl wv Tes a> prey Aah PETE Trt * 
Ratatat coe tes RAN ” : 

op eS stpeding as a uo ote 
=e postin nanid Mk 

phew eh a tank Schl Lage 
Relea nese Seyarare 
Seren sere WA? “e ‘ 

y Aa Yaw 
preety 9 Case WUE Ni ee errr nom elena yay 
erent PTO YT tm 1a Beloved dace gh a 

FO Ws Dap, UU TIN "RS 
ray Saag lA 





ba riba y 






















5 


























wou, 













Hi ee 


“ee 
bev Ronn eon 
nak HO SHRE VN “ 
ajc wrens tae en oni lege wre 

Pet popu ane vo 





Durer oF 
maa Se nw cae bree 


ey 
af fan oeaticecar eaeyy ihrer aaa ae 
waren Wa nchrpateattiaw Sreuiperpe us hic law ert 
=r Sennen Te eiterceny wravew werent, Seer feces 
Dita See sO Rk: CA HE AMD: Mt oh mi, ya ee 
ur a a RL Ne Syaat eruenna etereye pace arn 
omnes fone a ea NOE Ly IVY CUP Aer e E ~" 
i ae piety UAT S Cees aE Se 
Hae on ae CS HF 
ayes arts Pt Malan ve rere REY 8 as Ee SF 
Te dobeikh hela bolindstak Pe ha Steer wy © % 
ace 8S cae rrore gree BY ie aes ie hedete Ser ts tales sat he Oe 
neil cattfeteim ee Rd ean ke 
tere ay we Tea Weer rr: Sie r - aed 


we vs ey fee pile TOROS arb ATER y Gr FO) ¥ 
bana Scala fam ese e388 07g Sy 
Saacea cen ea pies Aaretiy! ¢ heat euspecint w, 8 = eee x} 
baht ss 4 sek eect aad to ee 
Cina vA taht apy ary oe4 ° 

TOU are rena 89 
be Re paht dmeg er: 




















>Hi 





















